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A Low-Cost Computer 
Comparison 
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Easy-to-read chart compares 
graphics, Iceyboard, display, 
memory, sound, and more... 
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Pascal Solitaire 



Word Detective 



Apple Joystick 




In this month's Learning Center 

Atari Nine-Color Painting Program 
Low-Res Animation for the Apple 
Simple VIC-20 and C64 Word Game 
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(if yell wmit it to) 



Imagine a ^rstem thatwouid record aii 
the wonderous. valuable information 
you have assimilated onto a single tiny 
disk. (No more scattered bits of paper, 
business cards, etc.) Imagine the same 
system giving you a typed sheet you 
could put into a notetxxik or print out 
for a party and instantly change, or add 
to, at a moments notice. Imagine cross- 
referencing to suit both your business 
needs and personal desires so that all 
your data was organized into one little 
black book! On top of all this — imagine 
having fun putting it together. 



MAGIC MEMORY" is built for the com- 
puter rookie. Everyone can relate to 
MAGIC MEMORY™ because its form is 
familiar. It looks like an address book 
but its not. Its more. Like the address 
book, MAGIC MEMORY^ presents an 
A thru Z index tabulation on the right 
edge of the video display. The user 
simply selects a tab and the t)ook is 
opened to the proper page(s). A second 
set of tabs are available that can be 
labeled by the user (i.e.: companies one 
deals with, birthdays, lists, wines, 
shops, etc.) Yet MAGIC MEMORY™ is 





'Imagine' no more. ARTSCI, INC. 
proudly announces MAGIC MEMORY", 
the complete advanced database 
system. MAGIC MEMORY Is made to 
simplify the information storage 
process. 

The typical first-time computer user has 
no human experience that will help him 
to relate to a computer's methods of 
handling information. Therefore, his 
learning ability is hampered and re- 
mains so for many hours of use, 
UNLESS the computer has been 
designed to run simply. 



much more versatile than the old F>aper 
address book. This system can Instantly 
add or delete information, sort 
alphabetically, and transfer data to 
other locatk)ns in the book. 



or any of its special sections. 

MAGIC MEMORY'S data presentation 
screen wilt instantly adapt to any type 
of information you may want to store. 
It is only limited to your imagination and 
your needs. 

MAGIC MEMORY™ is designed to 
operate on an APPLE lie and still re- 
main totally compatible with APPLE II. 
The system will operate in 40 columns 
or 80 columns. You may also use the 
70-column display that requires no ad- 
ditional hardware. 

MAGIC MEMORY™ retails for $99.95. 
Call 213/985-5763. Use your imagina- 
tion to outwit yourorganizatfonal woes. 



MAGIC MEMORr- e a trademaik ctAOfSCI, INC 





One of the features in the print section 
of MAGIC MEMORY™ is the ability to 
print out any or all of the address book, 



213/985^763 
5547 Satsuma Avenue 
North Hollywood. Ca 91601 
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NIBBLE EXPRESS 

YOUR APPLE* WILL LOVE IT! 






TABLE OF CONTENTS 



Turtle Graphics 

Applesoft Line Cruncher 

TRAC income System 

MAMA 

Amper Free Space Catalog 

Machine Language Editor 

Apple CALENDAR 

Peaceful Coexistence 

Apple Slugger 

Reverse Key 

Amper Find 

Bond Manager 

DOS 3 + 2 

Amper Speed 

Apple Darts 

MicroCalc 

Variable Cruncher 

Life 

Apple Flash 

Checker 

GO- Greeting Program 

Quick Sort 

Applesoft Line Editor 

Othello 

SPRINT 

Disk Dump 

Hi-Res Colors 

Apple Record Command System 

A|Dple Art Gallery 

Game I/O Expmt 

Super Keypad 

Disk Commander 

Compare Applesoft 

Amp-L-Sof t 

Electronic Message Center 

The Shape 

. Disk Map 

Apple Bowl Football 

Apple Scroller 

Lower Case Letters 

Recipe Box 

Disk Doctor 
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NIBBLE EXPRESS is an Anthology of the Major 
Articles and Programs appearing in Volume 3 of 
NIBBLE I\/lagazine . . , nearly S400 worth of 
Programsfor your Apple n, ACE. or other 
Applesoft-compatible computer! 

NIBBLE EXPRESS III contains up-to-date 
enhancements. KeyPerfect Tables, and the Best 
of NIBBLE! 

Even if you have all 8 issues of NIBBLE in 1982, 
you'll want the Express to have updated program 
listings in one convenient package! It's a MUST 
for your Library! 

NIBBLE EXPRESS III is a bargain at S17.95 
plus SI. 75 Postage/Handling (S2.50 outside 
the U.S.). 

YOUR APPLE WILL LOVE IT' 
(And so will vou!) 



I 
I 
I 

I 

I 



P.O. Box 325 
Lincoln, MA 01773 

Yes! I want to reserve NIBBLE EXPRESS Vol. Ill for my 
Library! Here's my □ Check D Money Order for $17.95 
plus $1 .75 postage/handling. (Outside U.S. add $2.75 tor 
postage/handling). 

D Also send me NIBBLE EXPRESS Vol. I at $12.95 Plus 
postage/handling (see above). 

D Send me NIBBLE EXPRESS VOL. II at $14.95 plus 
postage/handling (see above). 



Card # 

(Signature: _ 
Telephone: 



iName: 



Master Card & Visa Accepted 
Expires: 



Please Print Clearly 



i-'v-zo v,.,^umrr"tana tn Lry 
MLE Driver 



Address: 
I City 



. State _ 



-Zip. 



No. 62- July 1983 



I Your check or money order must accompany your order to qualify. 
Outside U.S.: Checks must be drawn on a U.S. Bank. 
"Apple is a registered trademark of Apple Computer Inc. 
'ACE is a trademark of Franklin Computer Co. 
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Highlights 



Do not panic at the words "Hard- 
ware Feature." You need not be 
totally hardware-oriented to enjoy the 
July issue of MICRO. Our lead article 
entitled "Low-Cost System Com- 
parison" (pg. 26), by Phil Daley and 
Loren Wright, is a descriptive com- 
parison of some of the more popular 
low-cost systems available. Then 
Charles Putney describes a simple 
modification and interrupt-driven pro- 
gram to allow use of 1/60-second inter- 
rupts on the Apple. See "A Clock Inter- 
rupt for Your Apple" (pg. 36). 

The joystick is a popular hardware 
item to modify. We have two articles 
that will improve your joystick 
capabilities. For the Color Computer, 
John Steiner shows you how to use 
Atari joysticks on your machine (pg. 
42). For the Apple, Dan Weston ex- 
plains how you can construct your own 



joystick for the Apple 11 at a savings of 
over 50%. Read "An Inexpensive 
Joystick for the Apple 11" (pg. 48): 

Jerry D. Brinson gives you direc- 
tions for constructing an EPROM Pro- 
grammer. Included in his article "PET 
Goes ROM" (pg. 50) is software 
necessary to drive the Programmer on a 
Commodore PET 2001 computer. And 
in "Automatic Head-Load Control for 
OS-65D" (pg. 54] Peter Kleijnjan ex- 
plains how a few bytes of patch code 
added to the operating system can give 
the minifloppy system user a head that 
is loaded only during disk activity. 

Our final article in the feature sec- 
tion is for the experienced hardware en- 
thusiast. "Disk Interface for Single 
Board 6502's" (pg. 56) by Jack Brindle 
is complete with hardware diagrams and 
sample software drives that interface a 
floppy disk to a 6502-based system. 



H-°-«tJULyj3s3 



'Saiaiiuteri 



as£u 



S TRS^OC 



'" »"s ffronth-, J^^ IB 



About the Cover 

The graphic in our 

screen was created with 

Paul Swanson's Atari 

painting program (page 

66). 
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YOUR COLOR COMPUTER JUST EARNED A MATH DEGREE! 




MATHMENU 

Developed by an engineer, Mathmenu is a 
powerful menu-driven system to turn your 
Color Computer into an intelligent, flexible 
tool for mathematics and engineering. 
Mathmenu takes the tedium out of math, 
leaving your full brain power to attack the 
"meat" of your problems. By rapidly mani- 
pulating matrices and vectors, performing 
integration and differentiation, solving 
quadratic equations, plotting user defined 
functions and much more, Mathmenu can 
help simplify the most complex problems. 
Whether you are a student or a professional, 
if you use math, you need Mathmenu. 



FEATURING: 

• 3D SURFACE PLOTTING — Plots a user defined equation on an 
X,Y,Z coordinate system in the High-Res graphics mode. Planes, 
surfaces of revolution, statistical surfaces, etc. can be easily plotted. 
Surfaces may be saved to disk or tape. We believe this is the only program 
of its kind commercially available for the Color Computer. 



PLUS: 

• Complete MATRIX Operations 
(up to 8 X 8) 

• Complete VECTOR Operations 

• Numerical Differentiation 

• Numerical Integration 

• Least Squares Curve Fitting 

• Binomial Expansion 

• Prime Number Verification 

• Main Menu with Single-key Selection 



2D Function Plotting 

Rectangular to Polar Conversions 

Base Conversions 

Large Number Addition and 

Multiplication 

Reverse Polish Logic Calculator 

with Hexadecimal 

Quadratic Equation Roots 

and Return (Disk Only) 



Complete documentation of all functions is included. 
For32KDisk $49.95 



For 16K Cassette $44.95 



Plotting Requires Extended BASIC 



Documentation only $5.00 (refundable with purchase) 

Or write for free brochure. 
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COLOR CODED; Multi-color DiscSaversf are designed DURABLE: Rigid vinyl construction protects against 



for easy recognition of individual disks with your own 
color-keyed filing system. Ideal for office or home use. 

PROTECTIVE: Custom grain vinyl provides added 
protection for magnetic disks by guarding against 
common handling hazards. 

ATTRACTIVE: DiscSavers prov de a handsome and 
professional method of single disk storage and 
enhance the look of your hardware while protecting 
your valuable software. 



constant handling to ensure long wear and tear. 

PORTABLE: DiscSavers are the only portable vinyl 
disk sleeves for use with a single diskette that bear the 
RockRoy mark of quality. 

Contact your Dealer or Distributor 



Computer Prodacls Divisibrt 



7721 E. Gray Road 
Scottsdale, Arizona 85260 
(602) 998-1577 
Toil-Free 800-528-2361 



DiscSavers is a trademark of RockRoy Inc. 
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26 Buyer's Guide: A 
Low-Cost System 
Comparison 

Phil Daley and Loren Wright 




A look at the features 
offered by the most popular 
low-cost microcomputers 



36 A Cloclc Interrupt for 
Your Apple 

Charles H. Putney 




A hardware modification and 
program that uses the 
Apple's 1/60-second 
interrupts 



42 Using Atari Joysticks 
on tlie Color 
Computer 

John Steiner 

Hook up an Atari switch 
joystick to the Coco 



48 An Inexpensive 
Joystick for the 
Apple II 

Phil Daley and Dan Weston 

Construct your own joystick 
— inexpensively 




50 PET Goes ROM 

Jerry D. Brinson 

A 2532 EPROM programmer 
for the PET 



54 Automatic Head Load 
Control 

Peter Kleijnjan 

Add just a few bytes of 
patch code to the operating 
system 



56 Disk Interface for 
Single Board 6502s 

Jack Brindle 

Diagrams and sample 
software drivers demonstrate 
this interface 
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Atari Painting Program...page 66 




O The Learning 
(H) Center 

66 Mode 10 Atari 
Painting Program 

Paul Swanson 




A simple drawing program 
that lets you use nine colors 



75 Word Detective 

Bob Tripp 

m 




A word game for the VIC-20 



82 Lo-Res Sliape Drawer 

Doug Denby 

Draw enlarged versions of 
hi-res shapes on the lo-res 
screen 



Articles 

85 OS-9, A UNIX-like OS 
for the 6809, Part 2 

Stephen L Childress 

Explore the CRT user's view 
of the system, and more 



92 Player Utilities 

Package for APX fig- 
FORTH 

Mike Dougherty 

Define and move Player 
patterns on the screen 



106 Pascal Solitaire 

Alan D. Floeter and Valerie 
A. Floeter 




Play Las Vegas solitaire on 
the Apple 



118 More 68000 

Addressing Modes 

Joe Hootman 

Our last installment in the 
68000 series 



124 Inputting Functions 
on the Apple 

John D. Rippon 

Add function definitions to a 
running BASIC program 
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12 PET Vet 

Loren Wright 

FORTH for the 
Commodore 64 

17 From Here to Atari 

Paul Swanson 

Comments on the 
850 interface, 
telecommunications, 
and interfacing 

20 CoCo Bits 

John Steiner 

News and comments on 
hardware accessories and 
. modifications 

24 Interface Clinic 

Ralph Tenny 

More discussion on serial 
ports 
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Apple*, Commodore 
Timex/Sinclair* . . . 



by Willjam B. Sanders 



The idea of getting your own connpurer 
sounded wonderful. But now rhor you hove if 
you're o little scored . . . you think it sounds so 
technical. Well, take heart. Relox. Help is here. 
William D. Sanders has written individual books 
about the Apple, the Commodore 64, and the 
Timex/Sindoir computers. When you select the 
one which matches your computer you con 
breathe easy because it'll be like having your 
all-time favorite teacher at your side . . . gently 
guiding you, explaining, and showing. 

THE ELEMENTARY series sweeps away the 




We make _ 
them elementaiT^ 



DATAMOST 



8943 Fullbright Ave., Chatsworth, Co. 9131 1 . (213) 709-1202. 

VISA/MASTERCHARGE accepted. $2.00 shipping/handling charge. 
(California residents add 6'/2% sales tax) 

'Apple, Commodore 64, and Timex/Sinclair are trademarl<s 
respectively of Apple Computer, Inc., Commodore Business 
Machines, Inc. and Timex Computer Corp. Copyright 1983 Datamost Inc. 
Circle No. 5 



confusion and explains your 
Apple, Commodore 64 or 
Timex/Sinclair in down to 
earth terms, coupled with 
enjoyable cartoons. It 
shov^you how to hook it 
up, how to use the key- 
board and worls on 
the sCTeen— all the 
unique things your 
'Computer con do so you 
- - can moke use of it right away! And 
it also answers those questions you'll 
hove about how to write your own simple pro- 
grams, about graphics, utility programs, and 
various hardware options. 

You'll see your ELEMENTARY book contains a 
lot of information. And, you'll also see that not 
one porogroph or chapter is dull or difficult to 
follow. Prove ityouryourself. Visityour computer 
store. Open the book. Read o page of the 
introduction, then flip to any page and read a 
porogroph or so. You'll find it's as understand- 
able, as helpful and as marvelous as we say. 
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Editorial 



The Peanut Butter Test 

I recently had the opportunity to at- 
tend a symposium entitled "The Small 
Systems Economy: Crisis and Oppor- 
tunity." Several speakers offered valid 
and interesting comments on the 
microcomputer industry, but one par- 
ticular topic — covered by former presi- 
dent of Commodore, H. E. James Finke 
— caught my attention. 

Mr. Finke pointed out that the 
curve of technology versus price had 
converged on a figure of about $200.00, 
a sum the consumer seems willing to 
pay for a microcomputer. Of course, we 
know that considerable discounts are 
offered on many systems; e.g., you can 
buy a VIC-20 for $88.00 in some depart- 
ment stores. In any case, the new low 
prices mean that more people are able 
to buy computers — including those 
who know nothing about them. 

As you can see, at least two prob- 
lems could arise from the low price and 
new forms of distribution. First let's 
address the aspect of new users. Most 
of these customer's have probably 
never seen, much less used, a computer 
before. They won't know that their 
rnachine needs a little more care and 
consideration than, say, their TV or 
toaster oven. And chances are they 
won't be as careful with equipment 
that cost $88.00 as with a $1000.00 
system. Hence, we come to what Finke 
terms the "peanut butter test." 

Should manufacturers produce 
computers that will hold up to the 
abuse of sticky fingers, spilled milk, 
and cookie crumbs? Since the lower 
prices are attracting more people and a 
new market (a market most microcom- 
puter manufacturers are trying very 
hard to capture), perhaps the com- 
puters should be especially durable. 
How about crumb trays underneath the 
keyboard? Or a waterproof casing? 
Maybe an attachment to hold drink 
glasses would be convenient (you 
know, the kind you put your coffee in 
while you commute to work) . 

Of course these suggestions may 
sound outrageous, but there are, no 
doubt, more reasonable alternatives. 



The point is, now many microcom- 
puters are not only priced for mass 
consumption, they are more easily 
available. Instead of being marketed in 
computer stores or electronics centers, 
they are being sold in department 
stores by clerks who know very little 
about them — to customers who know 
even less. These systems are bound to 
encounter a lot more rough treatment 
than ever before. This brings us to the 
second problem: proper training for 
sales people selling rnicros. 

I would like to suggest that it is 
time for manufacturers to provide 
serious training support for their 
distributors. Some manufacturers are 
working closely with dealers in com- 
puter stores, providing instruction for 
the store sales staff. But what about the 
clerks in the general department stores? 
Not only do most of these sales clerks 
lack sufficient knowledge to effectively 
sell a VIC-20, TI-99/4A, or Atari, but 
quite often there isn't enough instruc- 
tional material at the store for an ade- 
quate demonstration. If customers are 
going to purchase a microcomputer 
that they know little about operating, 
they certainly won't know its phys- 
ical limitations. 

It seems to be up to the manufac- 
turers to provide both the training for 
the distributors and literature for the 
public. Meanwhile, in lieu of actual 
hardware modifications that offer more 
durability for a system, perhaps flyers 
could be passed out with each com- 
puter explaining care and maintenance 
dos and don'ts. For instance, "Do not 
leave drinks on or near the machine. 
Disks should not be put on the stove. 
The keyboard will not operate properly 
when caked with peanut butter " 
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Marjorie Morse 
Managing Editor 




Attache-style cases for carrying and pro- 
tecting your complete computer set-up. 
Accommodates equipment in a fully oper- 
ational configuration. Never a need to 
remove equipment from case. Simply 
remove lid, connect power, and operate. 

API 01 Apple II wHh Single Drive $109 
API 02 Apple II with IWo Disk 

Drives 119 

AP103 Apple II, 9 Inch IMonitor & 

Two Drives 129 

API 04 Apple III, TWO Drives & 

Silentype Printer 139 

AP105 13" IMonitor with 

Accessories 99 

API 06 AlHDEtC Color Monitor 119 

RS201 TRS-80 Model I, Expansion 

Unit & Drives 109 

RS204 TRS-80 (Model lit 129 

AT301 ATARI Computers with 

Peripherals 109 

P402 Centronics 730/737 & 

Radio Shacic Prirrter 89 

P403 Epson MX70/80 or 

Microtine 82A 89 

P404 Epson MX100 Printer 99 

P405 IDS 560 or Prism 

132 Printer 109 

P406 Starwriter/Printmaster 

F-10 Printer 119 

P407 Okfdata Microtine 

83A or 84 Printer 99 

P408 Prowrlter 2 Printer 99 

P409 Prowriter (Apple Dot Matrix) 

Printer 89 

IB501 IBM Personal Computer 129 
IB502 IBM Monitor 99 

HP601 HP41 with Accessories 99 

CM703 Commodore Model 64 

with Drives 119 

CM704 Commodore Modei 64 

with Dataset 109 

NS010 North Star Advantage 139 

CC80 Matching Attache Case (51 85 
CC90 Matching Attache Case (3*0 75 
CC91 Matching Accessory Case 95 
CC92 5.25" Diskette Case 49 

compurer case company 

5650 Indian Mound Court 

Columbus, Ohio 43213 

(614) 868-9464 

CALL TOLL FREE 
800-848-7548 
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RS232C 

PaperTape 

Transmitter 




Computer entry, numerical 
control and data trans- 
mission. Includes X-on, 
X-off and parallel output, 
current loop optional. 
Desk top or rack mount. 
OEM model and spooler 
also available. 
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ADDMASTER 

CORPORATION 

416 Junipero Serra Drive 

San Gabriel, Calltornia 91776 

(213) 285-1121 



CARD "?" CARD/PRINT 
$76.00 

Universal Centronics Parallel Printer 
Interface for tfie VIC-20® or CBM-64. 
Use any parallel printer witti your 
VIC-20® or CBM-64. 

CARDBOARD 3 
$35.95 

Economy expansion interface for the 
VIC-20® 

CARDBOARD 6 
$87.50 

An expansion interface for the VIC-20®. 
Allows expansion to 40 K or accepts 
up to six games. May be daisy chained 
for more versatility. 

CARDETTE 
$30.95 

Use any standard cassette player /re- 
corder with your VIC-20® or CBM-64 

LIGHT PEN 
$29.95 

A light pen with programs to use with 
your VIC-20® or CBM-64 



TO ORDER: 
P.O. BOX 768 
WICHITA, KS 67201 
(316)263-1095 
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Handling charges $3.00 

CO.D (Add $2.00) 

Personal checks allow 3 week delivery 

VIC-SO"" is a registered trademark of Commodore 

Prices subject to change 
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Opinions on APL 

Dear Editor: 

I was pleased to notice Terry Peter- 
son's article on APL in MICRO #57. 

Mr. Petersen might have found 
that, in the comparison of APL with 
BASIC he ran on his SuperPET, APL 
would fare even better had he used the 
simplest possible APL command to 
generate an array containing the first 
1000 integers (namely A<-ilOOO|. On 
the other hand, APL would probably 
have demonstrated less of a timing ad- 
vantage in generating an array consisting 
of the first 1000 EVEN integers (A-«-2x 
ilOOO), although the advantages of com- 
pactness and clarity are still present. 

The issues of structure and reada- 
bility raised in the article are certainly 
very live concerns in the world of APL 
programming, but are essentially 
distinct. Briefly, program structure is 
largely irrelevant in small and medium- 
sized APL applications because a 
straightforward non-branching ap- 
proach is almost always best. Structur- 
ing techniques can certainly be applied 
when needed, however [see Geller, 
D.P. and Freedman, D.P., Stmctuied 



Piogiamming in APL, Winthrop 
Publishers, Cambridge MA, 1976). 
Readability, on the other hand, is 
enhanceable by such techniques as 
careful choice of names, use of modular 
code, and adherence to a set of simple 
programming standards. Good APL code 
can be very readable indeed! 

It is probably the case that, as Mr. 
Peterson discovered, the documenta- 
tion supplied with a microcomputer 
implementation of APL will not 
generally suffice to teach the idea of the 
language. Even though new users of the 
language will find that they can im- 
mediately perform simple but signifi- 
cant computations in APL, they will 
need to consult further articles and 
texts and spend a lot of time at the 
keyboard in order to command the real 
power of the language (a worthy goal, 
however!). As yet there do not seem to 
be any texts available on the general 
marketplace that teach APL in the con- 
text of the microcomputer, but there 
are numerous good mainframe-oriented 
books available to the novice. 

R.W.W. Taylor 

967 Meigs St. 

Rochester, NY 14620 



Heie is Mi. Peteison 's response: 

1. Regarding the need to print APL 
characters I offer a solution in an 
article, accepted for publication in 
MICRO, that teUs how to print APL text 
on an Epson MX-80 with Graphtiax. 

2. On my interpreter speed com- 
parison Mr. Taylor is obviously right: 
You don't need to 'reshape' a 
lOOO-element vector into a 1000- 
element vector. (The blundering of a 
beginner!) Using his suggestion cuts 
the APL benchmark run time by about 
10%. He is also correct about the even- 
integer assignment, which takes about 
three times [!| as long as the simple in- 
teger assignment on the SuperPET. 

3. On the issue of structure and 
readability I strongly disagree with Mr. 
Taylor's remark that structure is essen- 
tially distinct from readability. As far 
as 1 can see the principal advantages 
usually claimed structured program- 
ming boil down to generating more 
readable code. Such code is easier to 

MICRO 



debug and maintain (i.e., modify). As I 
tried to indicate in my article, the ' cor- 
rect' APL approach to most problems 
involves fewer loops and branches than 
would arise in other languages. 
However, the proper APL solution to 
even medium-sized problems may re- 
quire more RAM than is available in 
the SuperPET. In these cases, the non- 
branching APL solution to a program- 
ming problem is unworkable and the 
lack of more modem branch state- 
ments is sorely felt. 1 remain unper- 
suaded that APL can be 'structured' by 
merely pointing out topological 
equivalences to other languages. Just 
because 1 might be able to construct in 
old-fashioned BASIC an 'IF x THEN 
1234' code sequence that is 'just like' 
(i.e., equivalent in program flow to) 
Pascal's if x then ... else ...' stmcture 
doesn't make such code as readable as 
Pascal! Futhermore, I assert it is not 
meaningfully 'structured'. The proper 
(Continued on page 10) 
No. 62- July 1983 
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BEFORE you BUY! 

from our 

SOFTWARE 

RENTAL LIBRARY 



□You can now RENT the most popular software available for just 

^ 20-25% * of Manufacturers' Retail Price 
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lU 
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• Rentals are for 7-days (plus 3 days srace for return 
shippins) 
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approach is to do as Waterloo Computer 
Systems did with microBASIC on the 
SuperPET — add 'if. ..then. ..else...', etc., 
to the language. 

Aesthetically, I think APL is a close 
relative of haiku poetry. Both are able 
to express very much very compactly. 
And, with study, both are beautiful. 
Unfortunately, APL's elegance comes 
with a sacrifice in efficiency, since not 
all data structures are naturally 
represented as rectangular arrays. 

Terry M. Peterson 

8628 Edgehill Ct. 

El Cerrito, CA 94530 

Feedback on Newton-Raphson 

P. P. Ong's program, "Extending 
Newton-Raphson's Method to Evaluate 
Complex Roots" [56:71] can be speeded 
up by using Homer's algorithm (the 
factorization of the polynomial |. Follow- 
ing are the lines that replace the orig- 
inal ones: 

51200 R = A(N) X COS(NxTH) 
51220 FOR l = N-1 TOO STEP -1: 

R = A(I) X COS(lxTH) -I- R 

X A : NEXT 
51240 S = A(N) X SIN(NxTH) 
51260 FORI = N -1T0 1 STEP -1 : 

S = A(l) X SIN (IxTH) -I- 

A X S : NEXT 
51280 T = N X A(N) X C0S((N-1) 

X TH) 
51300 FOR I = N - 1 TO 1 STEP - 1 : 

T = I X A(l) X COS ((1-1) X 

TH) -I- A X T : NEXT 
51320 U = N X A (N) X SIN ((N - 1) 

X TH) 
51 340 FOR I = N - 1 TO 2 STEP - 1 

: U = I X A(l) X SIN ((1-1) 

X TH) -I- A X U : NEXT 

Lie. Victor L. P. Frank 
Argentina 

Dear Editor: 

I enjoyed reading Dr. Ong's article 
"Extending Newton-Raphson's 
Method to Evaluate Complex Roots" 
(56:71), but I believe his program is not 
that accurate. 

Although finding the roots of a high 
order polynomial can be difficult, 
checking the result is easy — just sub- 
stitute back into the original equation. 

In the example (eqn. 22), Dr. Ong 

10 



gives the real roots as 0.5100436 and 
2.1458455. These roots are actually 
0.509721 and 2.307073. The error pro- 
duced by the program in calculating the 
root at 2.307073 is over 7%, which is 
much larger than the "approximately 
0.0001%" stated by Dr. Ong. 

Peter Chrzanowski 
115 N. Sunset Dr. 
Ithaca, NY 14850 

Dt. Ong responds: 

Of course Newton-Raphson's 
method is not new, but its extension to 
include complex roots is novel. The 
algorithm I've proposed is just suitable 
for the present-day microcomputer (or 
even a programmable calculator) en- 
vironment. I also agree with Lie. Victor 
that his method of evaluating the four 
polynomials is shorter. However, in 
choosing the procedure presented I 
have intentionally sacrificed speed for 
clarity. In fact, there are many more 
ways to shorten computation time, 
computational steps or even program 
length, but as the program was pri- 
marily intended for the "average" (and 
probably busy) reader to follow without 
too much effort, I have made no at- 
tempt to refine the program at the ex- 
pense of readability. 

Updates 
and Microbes 



Peter Chrzanowski' s point is well- 
noted. The 7% discrepancy was actu- 
ally due to a missing term of - 6Z'° in 
equation (21) or +6X^° in equation 
(22). Unfortunately the omission was 
discovered only after the manuscript 
went to press. The accuracy of 
0.0001% still holds. If Peter had run the 
program using the uncorrected equa- 
tion (22) as input, he would no doubt find 
that it yields the following roots: 

X = 0.50972140 
0.33224526 ±0.44192513/ 
0.47405998 ±1.00831167/ 

- 0.38559764 ± 1 .04245339/ 

2.30707296 

0.98920983 ± 0.39823923/ 

- 0.99690848 ± 0.36963689/ 

- 1 .65691 560 ± 1 .70259001/ 

The relevant answers are more than 
one significant digits better than those 
quoted by him. 

I am glad that the program did not 
make any error, only the human part of 
me did. 

Dr. P. P. Ong 

Physics Department 

National University of Singapore 

Singapore 



A New Look at a Full Byte 

Mark J. Boyd offered his solution to 
the "lack of Apple graphics" problem 
when using the Epson MX printer ("A 
Full Byte for Your Apple Printer" 
58:42). Dr. Boyd used an annunciator 



output to control bit 7 of the Apple out- 
put to the Epson printer. However, I 
believe it is not the best solution 
to the problem. My solution is a sort of 
double reverse. 
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Figure 1 
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Updates and Microbes 

The Epson interface uses two 
74LS175 4-bit latches to buffer data on 
it's way to the printer. If jump P4 is in 
place the value latched at 4Q is ignored 
and the output bit is held low. If in- 
stead jumper M4 is in place the value 
latched at 4Q is passed. 

It occurred to me that what we really 
want here is for the INVERSE of 4Q to be 
sent to the printer. In that case, Apple 
characters with their high bits set will 
be properly sent to the printer with their 
high bits clear. On the other hand, all we 
have to do to access the graphics is send 
out characters with their high bits clear 
and the interface will translate them to 
printer graphics characters. 

Make sure that both jumpers P4 and 
M4 are removed. With the component 
side of the board facing you, carefully 
solder a piece of small gauge insulated 
wire [wire-wrap wire is ideal) between 
pin 14 of circuit 2A and the output line 
at P4 or M4. For P4 the output is the 
hole closest to circuit 2A and for M4 it 
is the hole farthest away. (See figure 1) 

Owing to the contrariness of the 
Apple's COUT monitor routine, we 
need a special driver to send out 
characters with their high bits cleared. 
The following COUT routine will 
allow unaltered transmission of 
characters to the printer. The routine is 
used by POKEing the ASCII character 
value into $300 and then CALLing 
$301. It is assumed that the interface is 
in slot 1 . Otherwise the addresses will 
have to be altered accordingly. 



301 


AD 00 03 


COUT LDA $0300 


304 


20 CI 01 


BUSY BITSCICI 


307 


30 FB 


BMI BUSY 


309 


8D 90 CO 


STA $C090 


30C 


60 


RTS 



New MICRO Bulletin Board 
Number! 

You can reach our Bulletin Board 
now at (603) 883-1576. 



MASTER Improvement 

In MICRO 59:80 change line 2050 
as shown to improve the flashing of the 
cursor: 2050 POKE CF,0: POKE CF + 3,0. 
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irS FREE! 

Announcing the NEW, Summer 1983 Moore Computer Forms and Supplies Catalog 




Now with a NEW 34-page 
computer forms section! 



I Our new, 80-page Summer Catalog features 
more than 800 quality, brand-name products- 
all guaranteed to meet your 100% satisfaction 
or your money back 

I For all your computer or word processor needs, 
a wide selection of magnetic media, disk stor- 
age, binders, ribbons and furniture 

I Over 40 pages of multi-purpose computer forms 
and labels at low prices, including an ALL- 
NEW 34-page section of imprinted forms 

I Unmatcfied customer services, like fast order 
processing, custom imprinting, emergency over- 
night delivery, plus exclusive toll-free Techni- 
cal Product Assistance 



Mail this coupon or call 

toll-free 

1-800-323-6230 

(In Illinois, Call (312) 459-0210) 
Catalog Group 

MOORE 



D YES! Send me a FREE 80-page, full-color 
copy of the Summer 1983 Moore Catalog 




CENTBl 

A Division of Moore Business Forms 

P.O. Box 20 
Wheeling, IL 60090 
Dept. 124411 
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Check the 

outstanding 

documentation 

supplied with 
AIM65 



from 

All prices 
Postpaid 

(Continental 
U.S. — 
otherwise 
$2 credit) 

Top quality power supply designed to Rockwell's specs for fully 
populated Altvl 65 — includes overvoltage protection, transient 
suppression, metal case and power cable: 
PSSBC-A (5V 2A Reg; 24V .5A Avg, 2.5A Peak, Unreg) ...$64.95 
Same but an extra'AMP at 5 volts to drive your extra boards: 
PSSBC-3 (5V 3A Reg; 24V .5A Avg, 2.5A Peak, unreg) ...$74.95 

The professional's choice in microcomputers: 

AIM65/1 K RAM $429.95 BASIC (2 ROMS) $59.95 

AIM65/4K RAM $464.95 ASSEMBLER (1 ROM) . . $32.95 

FORTH (2 ROMS) $59.95. 

SAVE EVEN MORE ON COMBINATIONS 

AIM65/1K-f^ PSSBC-A .$479.95 AIM65/4K-H PSSBC-3 .$524.95 

We gladly quote on all AIM65/40 and RM65 items as well. 
mgm ORDERS: (714) 369-1084 g^ 

HHJ P.O. Box 20054 • Riverside, CA 92516 M 

California residents add 6% sales tax ciicieNo. n 
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speed, 

Speed with the PASCAL SPEEDUP SYSTEM, 

our best seller. Features complete ease of 
use with all APPLE PASCAL; UCSD PASCAL 
1.1; APPLE RUNTIME ENVIRONMENT; & 
FORTRAN applications. From 40 to 150% 
speed boost on most programs (some even 
faster). All with no programming and with 
only one extra watt of power from your 
power supply. 

Power, 

Power with the cost efficient 6809 
coprocessor; the 8 bit chip with a 16 bit 
"personality". Enough power to drive multi- 
tasking OS-9 / BASIC 09, the "Unix-like" 
operating system with a Pascal-like BASIC 
for the Apple. If s all in a days work for THE 
MILL 

Efficiency. 

Efficiency with the ASSEMBLER DEVELOP- 
MENT SYSTEM; Heavyweights write state of 
the art programs on the 6809 for DOS 3.3 or 
even stand alone. Utilities include M.A.P. 
(McMill Adaptor for Pascal). 

"The Stellation Two people have earned my 
highest respect for assembling an impressive 
collection of software for their board." 

- Michael Coffey/ 

Creative Computing Magazine 

"/ feel my software output has been greater in 
the six months I have used OS-9 than it was in 
the Vh years previous combined. It has a 
rakish logical simplicity that nearly defies 
description... I bill OS-9 as a programmers 
dream operating system." 

- Brian Capouch/ 
MICRO Magazine 

Call today or write for more information on this 
inexpensive Apple II, lie enhancement 




'm 



ION 



The Lobero Building RO. Box 2342 
Santa Barbara, Ca. 93120 
(805) 966-1140 Telex 658439 
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Loren Wright 

FORTH for the Commodore 64 

Alternate languages for the PET, no matter how power- 
ful, how fast, or how memory-efficient, have never 
been able to mount a serious challenge to BASIC. I have 
reported in this column on several excellent languages: 
FORTH (45:55), Pascal (44:50), RPL (43:35), and COMAL 
(46:98). All of these are more powerful and some are faster 
than BASIC, but none has ever completely overcome the 
fact that, even when the new language is in control, the 
BASIC ROMs just sit there taking up memory space. RPL 
probably does the best in this respect since it makes heavy 
use of the ROM routines by keeping down redundant 
memory use. COMAL and Pascal rely rather heavily on 
the disk to keep things manageable. The problem, of 
course, is in the design of the PET. The ROMs are soldered 
directly into the board, thereby permanently staking out 
14-18K of valuable memory. Only with hardware 
modifications or add-on boards can this memory be 
reclaimed. 

The design of the C64 allows for a number of things, 
including swapping out the BASIC ROMs to make RAM 
available in their place. The I/O and Kemal ROMs are in- 
dependently selectable, so an alternate language doesn't 
have to write new routines to do the more mundane 
things. That is precisely what has been done with C64 
FORTH (Performance Micro Products, 770 Dedham 
Street-S2, Canton, MA 02021). All the memory from $800 
to $CFFF is available for FORTH, its dictionaries, and its 
buffers. Many of the new sophisticated cartridge games are 
based on C64 FORTH. There are reasons, besides memory 
conservation, that make FORTH an ideal tool for develop- 
ment of sophisticated software for the C64. 

One major advantage is speed. I rewrote some of the 
BASIC sound demonstrations from the Piogiammei's 
Reference Guide with C64 FORTH. At first I thought that 
the language was a failure because the effects didn't sound 
anything like their BASIC equivalents. The error, though, 
was in my translation of the delay loops: where BASIC 
used FOR 1 = 1 TO 1000, FORTH requires 6001 1 DO 
LOOP for the same delay. Other operations, such as set- 
ting or clearing pixels in a high-resolution screen, are also 
much faster. (You should see the sprites whipping across 
the screen!) The only thing faster is straight machine 
language, but writing assembly language, even with a 
powerful assembler like MAE or the Commodore 
assembler, is a slow process. By the way, there is an 
assembler available on the system disk, so if FORTH isn't 
fast enough for something, you can code it directly in 
assembly language anyway! 

Other advantages are convenience and program 
understanding. Those of you with some experience pro- 
gramming sound and graphics on the C64 know the great 
number of POKE instructions required to do something as 
simple as sounding a middle C. For instance, in FORTH 
you can define a word that performs all the initialization 
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for music. You could define others that set up the 
envelope, filters, and other parameters for different 
musical instmments. In fact, you could define a whole 
series of special music-oriented words and then resave 
FORTH with these words included in the vocabulary. 
When you reload your special music-FORTH, the music 
words are available immediately. As you look at the 
listing, the words help you to understand what you pro- 
grammed. In a BASIC program listing, a series of POKE 
and GOSUB instructions would have to be reinterpreted. 

I should point out that FORTH listings can be much 
less understandable than BASIC listings and that even the 
simplest FORTH programs are meaningless to inex- 
perienced FORTH programmers. The reason why FORTH 
listings make no sense at first is in the way they are 
designed; this design is the source of most of the power of 
the language. For an experienced FORTH programmer, the 
listings have the potential to be much more meaningful. 

FORTH uses Reverse Polish Notation (KPN) and the 
language is heavily oriented toward a user stack. 
Hewlett-Packard calculators use both RPN and a user 
stack. Pascal and BASIC also use stacks, but the user 
usually doesn't even know about it. A stack is essentially a 
pile with items pushed onto it or pulled from it. Each item 
is a 16-bit number and most FORTH words operate from 
the top of the stack. To perform 5-1-3, you push 5 on the 
stack, followed by 3. The word ' + ' adds the top two 
numbers and replaces them with their sum. Pressing 
RETURN after entering the following will accomplish this: 

53 + .80K 

The period prints the number on the top of the stack, and 
the italics indicate what the computer prints in response. 
The expression (5-1-3) x (9 - 2) is done with the following 
sequence: 

53 + 92- * .56 OK 

Not all operations can be performed from the top of the 
stack, so there are words to access items beneath. There 
are also words that consider items in 32-bit increments 
{double numbers). Others do such things as comparisons, 
looping, and program control. There are many more, and I 
can't even begin to scratch the surface. 

One of the greatest powers of FORTH is its ability to 
expand its vocabulary. The language accomplishes this 
with a structure called a colon definition. It begins with a 
colon, followed by the name, the sequence of already 
defined FORTH words and numbers, and a semicolon. 
Here are some handy words for C64 graphics: 

: CLRCOLOR 55296 1000 ROT FILL ; 

(Sets all of color memory to color number on top of 
stack) (Continued on next page) 



ZAP! Climbing the corporate ladder could be fun except for all tliat falling papemorti. Tfiis Hires arcade 
type game allows up to 4 players to advance ttirough eacli floor to scale tlie corporate ranks. Be careful, 
It's easy to be ZAPPED! CARTRIDGE for VIC 20® $29.95 



ATEPAK 
VIC 20® 



Eigfit grapfiic games on tape witli complete manual to explain gaming tecfiinques. For 

ONLY $24.95 



Word Waaiti For The VIC 20® (Requires at least 8K memory expansion) A user friendly WORD PROCESSOR 
with optional joystick control Easy edit and string manipulation commands Full use of function keys. 
Delete Won), Search functions and Full Justification, Use VIC 20® printer, or any Centronics compatible 
printer connected to the user port. On Tape (supports disk) $34.95 

Bomber Word - A unique graphic word game on cartridge that provides the full thrill of arcade action. 
Complete with six modes of play options for added enjoymenl. Play against ttie computer or another 
player. 6 to adult. For VIC 20® $29.95 

Tic Attack ■ A fast action arcade game on Cartridge that challenges all of your dexterity. Written in 
machine language for special audio i visual effects. Over 100 levels of play High score indication For 
VIC 20® $29.95 

DotALot As you wander through life collecting Berries, you happen upon some magical fruit. Pick one 
and the treasures appear, but the Meanies are out today looking to spoil your fun. Defeat them anil con- 
tinue on to a higher level An ever changing maze plus arcade type animation to provide a real winning 
CARTRIDGE for the VIC 20® $29.95 

Triple Play Three games that are both fun and educational CROSSWORDS (requires at least 3K expan 
sion). Five complete fuii\ei are included, CRYPTOSOLVE will help you solve those cryptic messages found 
in newspapers, ar\d magazines with a systematic computer technique. Included are approximately 50 dif- 
ferent puzzles. You can even enter your own cryptic messages, HIDDEN WORDS will display a matrix ot 
seemingly random letters on the screen You should be able to find many words. Included are approx- 
imately 25 different puzzles ForVIC20«' ONLY $29.95 for all 3 

KEYQUEST Our exciting new Arcade type game that takes you through the many levels of an ancient 
dungeon while gathering treasures and gaining experience points. Monsters, magical keys, and hidden 
passages all add to the excitement, ON CARTRIDGE for VIC 20® ONLY $34.95 

SKETCH PAD i CHAR-GEN - A high resolution drawing program that will allow you to save your pictures to 
tape. Also included is a simple to use character generator that will allow you to design a different 
character tor every printable key. Create game creatures, foreign alphabets, secret symbols or other 
special characters. One set is included. On tape for the VIC 20® $24.95 
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Expand-O-Ram - 16K Expansion Board tor tlie VIC 20® with reset, memory write protect, full memory 
allocation, plus TWO slots. Like having 2 products in 1, Can be used as a cartridge development system 
too. $119.00 

Unwefsal Tape Interlace i Duplicator - (Use on the Commodore 64® and VIC 20® ), With this device, you 
can easily load, save or even duplicate tapes witb jmr standanl recorder. Full 3 LED indication of Data 
transfer. A reliable way to Load. Save and Duplicate, NOTE: Duplication requires 2 standard cassette 
recorders. Only $49.50 

TVIIMC BUFFERED PARALLEL CABLE WITH DRIVER For the VIC 20® i Commodore 64® Tbis cable 
assembly plugs into the USER Port and provides a simple and inexpensive way to connect a PARALLEL 
Printer to your computer, $29.95 

DRIVER CARTRIDGE for VIC 20® - Take full advantage of tlie capabilities of your Parallel Printer including 
full Commodore graphics and formatting. Available for SEKOSHA, C.ITOH, OKIDATA. and others. Specify 
printer ONLY $29.95 

TYMAC "CONNECTION" - A truly intelligent parallel interlace for the VIC 20® and Commodore 64® , It will 
malic your printer operate like the COMMODORE Printer including graphics, text symbols, tab's, and 
virtually every ottier printer function Plugs into ttie serial socket. Available for most popular parallel 
printer $119.00 
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can bt negotiated. Commodore 64* 4 VC 20* are Registered Trademarks of Commodore Business Machines, Inc, 
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Protect your computer operation from loss of data 
files, lost keyboard input, and questionable integrity 
of stored information due to power failure. Operation 
is completely automatic, just attach your own 12V 
battery, or purchase below. 

Available for: 

Apple, Radio Shack, IBM, Olivetta, 

and most other personal and business computers. 

Specify equipment to be attached when ordering. 

If not completely delighted, return in original condi- 
tion within 30 days for refund. Ten percent restocking 
fee will be charged. Ninety-day factory warranty. 

Gel battery pack available with cables: 1-amp. com- 
puters - $65; 2-amp. computers - $111. 

For fastest delivery, send certified check or money 
order payable to "Thunderhawk." Send 10% with 
C.O.D. orders. Sent FOB, Texas. Price subject to 
change without notice. Texas residents add 5% sales 
tax. Broad selection of power ranges available for 
larger computers — call for prices. 

DEALER INQUIRIES INVITED — send on letterhead. 

Thunderhawk Manufacturing (214) 586-6256 

A Division of Thunderhawk Corporation 
P.O. Box 573 
Jacksonville, TX 75766 ciicieNo.u 

® 1983 Thunderhawk Corporation 
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CLEAR 147 EMIT; 

(Clear screen) 

SCREEN 53281 C! ; 

(Set screen color with number on top of stack) 



FORTH programming is done in a rather unusual 
fashion. Instead of using 'top down' programming, it uses 
a 'bottom up' approach. You start by defining the simplest 
words, building on these successively, until you can write 
your program in relatively few, already defined words. 

Now that I've convinced you that FORTH is a good 
thing, I should tell you about a few of its deficiencies. The 
biggest deficiency is the lack of floating-point capability. 
Also, exponentiation, logarithms, and trig functions are 
lacking. These functions can be added to the vocabulary, if 
needed. (An advantage of FORTH is that it is one of the 
most standardized languages available.) If you need 
floating-point routines, you can probably find them 
published somewhere and easily adapt them to your par- 
ticular machine. Work is already underway at Perfor- 
mance Micro Products on a package that will include 
floating point, plus all the other BASIC functions. 

I've spent a lot of space talking about FORTH in 
general, but very little on C64 FORTH from Performance 
Micro Products. That's because you have to know 
something about FORTH to understand an evaluation and 
also because FORTHs are mostly identical due to standard- 
ization. There are two standards — fig-FORTH and 
FORTH-79 STANDARD. C64 FORTH is of the latter type, 
a more elaborate version. In addition, author Gregg Harris 
has provided a number of convenient words that apply 
specifically to the C64 system. Two of FORTH's 
weaknesses have been overcome. FORTH screens are 
saved as regular CBM data files, which means you can mix 
BASIC and FORTH files on a disk. It also means that CBM 
DOS can be used to full advantage for copying, renaming, 
etc. The other problem is with the editor. The standard 
FORTH editor is a line editor. Some people love line editors; I 
don't. Gregg has written a very nice screen editor that allows 
full use of cursor controls and adds such commands as in- 
sert-line, delete-with-save, and un-delete. I would add tabs, 
but otherwise I found the editor very convenient. 

Software developers will find the SAVETURNKEY 
word a necessity. It saves the current application so that it 
will run automatically on loading. The user does not end 
up with a usable system, so the developer is not violating 
the copyright. Another handy feature is a trace function. 
Each word or literal, as it is encountered, is shown along 
with the current stack contents, which makes it easy to 
debug your definitions. 

The manual includes a lot of useful information; a brief 
introduction to FORTH; description of the assembler, the 
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COMPILE 
ATARI BASIC 
AND FLY! 



With ABC^", Monarch's | new BASIC 
compiler for ATARI 400" and 800, you 
develop and debug pro-B grams using 
your ATARI BASIC car- #tridge, then 
use ABC to transform ■ them into 
compact code that runs^up to 12 
times faster, without the ^cartridge 
(and protects your source^code, too). 
40K and disk required. ^ For your ABC 
diskette and manual,^^^end check or 
money order for ^(^ $69.95 (or $9.95 for 
manual alone). ^^ Monarch Data Systems 
^^V.O. Box 207, Cochituate 
^^^^MA 01778, (617) 877-3457. 



Ill Mas 
III inqu 

Jvk 



MastercardA/isa by phone. Dealer 
inquiries invited. Mass. residents add 
5% sales tax. ATARI, ATARI 400, and 
ATARI 800 are trademarks of ATARI, Inc. 
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^CORPORATION 



better from inside out 




at the lowest price! 



Call our Modem Hotline (anytime) - 619-268-448h 
for exclusive monthly specials. Our free catalog 
contains more ttian 600 fantastic values. 

ABC Data Products 



8868 CLAIREMONT MESA BLVD. 
SAN DIEGO, CALIFORNIA 92123 

ORDERS ONLY ITT TELEX INFORMATION 
800-850-1555 4992217 619-268-3537 
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editor, and some of the special C64 system words; a sec- 
tion on C64 graphic^, including sample routines and 
demonstrations (that should have been recorded on the 
disk]; a section on I/O and use of buffers; and a full 
glossary. Unfortunately, there is no index or table of con- 
tents, so I found myself doing a lot of page turning. If you 
know nothing about either FORTH or the Commodore 64, 
you will get confused very quickly. The graphics examples 
work well, but you have to know what you are doing to 
enter the right words in the right sequence. 

At first I had a little trouble trying to use C64 FORTH 
with my C64 Link. A simple POKE instruction executed 
after loading the program and before running it did the 
trick. It leaves the Link right in the middle of the memory 
space, where only large applications will cause a problem. 
Even this can be overcome with the appropriate relocator 
routine. 




I recommend C64 FORTH for anyone about to embark 
on a major software development project for the C64. It 
will make the project go much faster. If your programming 
will be mostly for your own benefit, and you don't already 
know anything about FORTH, I suggest waiting for the 
FORTH cartridge by Tom Zimmer from Human 
Engineered Software. This version will be very much ex- 
tended to include convenient words for sound and 
graphics. Because it is cartridge-based, it will not be 
suitable for development of saleable products. The HES 
FORTH for the C64 should be available in July or August. 
Performance Micro Products also has an extended cartridge 
version planned, available about the same time this summer. 



Update on June Column 

The list price for Script 64 is now $99.95. The full 
name of the word processor sold by Professional Software 
is WoidPio 3 Plus/64. WoidPio 3 and WoidPio 3 Plus are 
different programs (for the PET) and should not be 



mistaken for the Commodore 64 version. 
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From Here To Atari 



i)y Paul Swanson 

Many readers have sent in questions concerning use of 
the Atari 850 interface. Larry L. Farmer in Dover, 
Delaware, asked about the bootable handler for the 850. 

To use the 850 just for the printer is no problem — 
make sure it is off when you boot the computer and turn it 
on when you want to use the printer. Use the disk nor- 
mally, as if the 850 weren't there. There is no bootable 
handler required for using the printer through the 850. 

If you want to use the other four ports on the 850, you 
do need a handler. The handler loader is in the 
AUTORUN.SYS file on your DOS disk. You do need the 
handler for modem programs, for example. Using Atari's 
Telelink I requires that you have the 850 on when you 
boot the computer and it will load the handler. Don't Ask 
Software's TeleTari works the same way, except it uses 
the disk instead of a cartridge. 

To use the AMODEM programs or other communica- 
tion programs, or your own software to access devices 
through these ports, boot your computer with the DOS 
disk and make sure the 850 is on when you boot it. When 
it loads the handler you will hear a tone from the TV 
speaker a second or two in length. That is the handler 
loading from the interface. 

The handler is located and booted from the interface. It 
controls device R (Rl, R2, R3 and R4), which is usually an 
RS-232 port. The AUTORUN.SYS program simply triggers 
the loading. If you are not going to use the four ports on the 
850, whether or not you are going to use the printer con- 
nected to the 850, make sure the 850 is off when you turn 
on the computer. If the 850 is on, even if the handler is 
not loaded, it will reserve some memory for a buffer. This 
memory is not used or needed if you don't use those 
four ports. 

Telecommunications 

I recently received a review copy of TeleTari from 
Don't Ask Computer Software (Lost Angeles, California) 
and have been using it to play with the local billboards. 
TeleTari allows you to send and receive disk files, which 
makes it useful for uploading and downloading programs. 
It also has a very complete terminal configuration selec- 
tion, allowing communication to anything your modem 
can handle. 

It does live up to it's "Friendly Terminal" slogan — 
every one of its functions is adequately documented and 
relatively easy to use. A few of the nicer features include a 
buffer that collects everything while you are on line and 
that can be reviewed on the screen at any time, easily 
printed, saved on disk or sent to any other peripheral you 
choose. Also, the buffer doesn't disappear after you save it, 
so you can, for example, print it out, then save it to disk. 
You have to tell TeleTari when you want the buffer 
cleared. Suggested retail price for TeleTari is $39.95. 

(continued) 




Three new ATARI books for the 

serious programmerand beginner, are 

now distributed by iJG, for use with 

the ATARI 400 and 800 microcomputer 

systems. 
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UTILITIES 

for iOMII 400/800/1200. 



iS oitwrg I utility programs 

^^^^^~ require no software 

^^^^ modifications and are 
a must for all serious ATARI BASIC 
programmers. 

GASDUP 1.0 A 2.0 To copy most 
BOOT tapes and cassette data files. 
1.0 is a file copier. 2.0 is a sector 
copier. Cassette only $24.95 

CASDIS To transfer most BOOT 
tapes and cassette data files to disk. 
Disk only $24.95 

mMAP BASIC Utility Package. 
VMAP-variable cross-reference, 
CMAP-constant cross-reference 
(includes indirect address 
references), LMAP-line number 
aoss-reference, FM/\P-all of the 
above. Will list "unlistable" 
programs. Also works with 
Editor/Assembler cartridge to allow 
editing of string packed machine 
language subroutines. All outputs 
may be dumped to printer. Cassette 
orDiskS39.95 

MSASMTo disassemble machine 
language programs. Works with or 
without Editor/Assembler 



cartridge. May be used to up or 
down load single boot files. AH 
output can be dumped to printer. 
Cassette or Disk $24.95 

IHSOUP For disk sector 
information copying. May specify 
single sector, range of sectors, or all. 
Copies may be made without read 
varify Disk $24.95 

IJG products are available at 
computer stores, B. Dalton 
Booksellers and independent 
dealers around the world. If IJG 
products are not available from your 
local dealer, order direct. Include 
$4.00 for shippingand handling per 
item. Foreign residents add $11.00 
plus purchase price per item. U.S. 
funds only please. 

IJG, Inc. 1953 W. 11th Street 
Upland, California 91786 
Phone: 714/946-5805 

Hifsfrom^ 
irSJUSTGREM'! 

ATARI TM Warner Communications Inc 
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Boulder Logical Testing, inc. 

is now offering a new EPROIM Programmer 

FOR $195.00 




• Microprocessor based 

• Programs 2716, 2732, 2732A and 2532 EPROMS 

• Zero Insertion Force (ZIF) soclcets are standard 

• 25 or 22 voit programming voltage option 

• Copy from EPROM to EPROM automatically 

• RS 232 interface with selectable baud rates 

• Thorough user documentation includes example 
software drivers for popular computer systems, 
including Apple*, IBM PC*, and CP/M* 

• Command set can be used from host computer 
or terminal 

• Comes complete with power supply 

To order, or for more Information write: 

Boulder Logical Testing, Inc. 

PO Box 902 

Boulder, CO 80306 

Ordering information: send money order or check only, no 

CODs. Price includes shipping costs and documentation. 

Colorado residents include 3% sales lax. 

•Apple is trademark of Apple, Inc. IBM PC is trademark of 

IBM, CP/M is trademark of Digital Research. ciicleNo.20 
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BIBLE MOCJNTAIN 

A fun and exciting Bible 
educational game! 

• For 2 to 20 players. 

• Fully documented 

SEND CHECK OR MONEY ORDER TO: 




J&M SOFTWARE 
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P.O.Box 2132 
Athens, Texas 75751 
(214) 675-8479 



(Texas residents add 5% Sales tax ) 
lAdd $1 50 far shipping and handling charges 1 
Programs for 48K APPLE II ■ and D O S 3 3 with disk drive 
"APPLE IS a registered trademark of Apple Computer Inc 
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Atari 1025 Printer 

If you are looking for a printer and don't want to pay 
the extra money for the 850 interface, you will probably be 
looking at an Atari 1025. It handles full 9.5 x 11 inch 
forms, which usually come with perforations so that the 
sprocket holes rip off leaving you with 8.5 x 11 sheets. It 
uses fanfold paper only — no single sheets. Suggested 
retail price for this new printer is $595. 

The 1025 has 80 columns per line but doesn't require 
the 850 interface. It uses a typewriter spool-type ribbon. It 
prints at 16.5, 10 or 5 characters per inch and 6 or 8 lines 
per inch. It also has "European" characters. 

The 1025 does not support graphics nor does it have 
proportional print. It is probably worth looking at because 
the 850 is not required, but if you already have an 850, you 
may want to look at some other printers. I'll stick with my 
IDS IP-225 and Epson MX-80. 

The Atari 1020 printer looks like it will be a little more 
interesting. It is a four-color "printer" (described like a 
drum plotter) using colored pens instead of the dot matrix 
impact printhead. It also connects directly to the serial 
bus, but uses roll paper only 4" wide. The 1020 suggested 
retail price is less than $300. 

Interfacing Using Controller Jacks 

One topic that keeps recurring is peripheral control 
through the joystick ports. The four jacks on the Atari 400 
and 800 computers are full of places to hook up 
peripherals. I mentioned my IDS lP-225 printer, but since 1 
have only one 850 interface, I have that printer hooked up 
through controller jacks 3 and 4 on my Atari 400. That par- 
ticular printer requires only seven data bits. 1 use the 
eighth bit available in the jacks for the STROBE line to the 
printer and hook the printer's ACK line to a joystick trig- 
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ger input. If CIO makes you think of a bunch of spies, you 
may want to use PEEK and POKE from BASIC to control 
the printer. If it means the Central I/O utility, then you 
may want to write a handler for the printer. 

My IDS uses a handler set in place by a BASIC program. 
The handler occupies the entire top half of page 6 (actu- 
ally, 126 bytes) and handles OPEN, CLOSE, PUT and ini- 
tialization, so the "P" device still refers to the controller 
jacks after you hit SYSTEM RESET. I am preparing an arti- 
cle on this interface to CIO. If I successfully complete it, 
you will see it here in MICRO. Otherwise, I will continue 
the description in future columns. I think such a topic is 
well worth discussing because you can use the same 
method for attaching almost any peripheral you want 
through the controller ports — parallel or serial — and 
have the handler control all handshaking and data 
transfers one byte at a time. 



Promises, Promises 



I know I promised a description of the new SO-columu 
board from Austin Franklin Associates, Inc., in this 
month's column and it is not here. There was a problem in 
the software at the last minute, which delayed the release 
beyond the deadline for the column. Look for you next 
month. JUCftO- 



Send yiiuT letters to Paul Swanbon at 97 Jfackson St., 
Cambridge, MA 02140. 
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e^ SUPER SALE 

Bulk Diskettes* with envelopes 



•Now Get High Quality at a Low Pnce Manufactured by a Major Disc Company 

For MDS Without Their Name on Diskettes 'Minimum order 20 diskettes with 

Tyveh envelope and storage shipping bo* "Quantity DiSi,ounts 100 deduct 3%. 

1000 deduct 5- 10 000 deduct 10- 100- Cen>f>ed 1 Year Warranty 



5%" Soft Sectors 

$1.69* 
$1.99* 
$2.79* 



$INGi.E SIOL 
SINGLE OENSIIY 
W/HU6 Ring 

SINGLE SIDE 
DOUBLE DENSITY 
W/HLJB RING 

DOLJBLESIDE 
DOUBLE DEMSIIl 
W/HLJB RING 



8 "Soft or 32 Sectors 

$1.79* 
$2.29* 
$3.09* 



SINGLE SIDi 
SINGLE DENSITY 



SINGLE SIDE 
DOUBLE DENSITY 



DOUBLE SIDE 
DOUaE DENSlTl 



PRINTERS 

All EPSONS available ScaU 

GEMINI 10 by Star Micronics $3^9 00 
GEMINI 15 by Star Micronics $549 00 

Okidata Microline 80 {call 

Oiiidata Microline 82 $469.00 

Okidata Microline 83A $call 

Okidata Microline 84 {call 



MICROBUFFER 

MBP16K Parallel J149 00 

MICROBUFFER IN LINE For Most Printers 

32K Parallel $289 00 

64K Parallel $339 00 

32K Serial $28S 00 

64K Serial $339.00 

64K Memory 

Expansion Modules $169.00 




TANDON DISK DRIVE ENCLOSURES 

Complete with Chassis & Power Supply Fully assembled silver or beige 
chassis with external card edge connector for easy cable installation for 
5'/4" drives With MDS 120 days warranty $59.00 

BARE DRIVES 

TMIOO 1 40 Trl. $199 00 

TMIOO ? 40/40 T'K ... $269 00 

TMi00 4 80 80 in $339 OT: 

SIEMANS fDDlOOSSS'DD 8 m . $279 OCj 

TM60 SS DD 40 Trk Tnmline $199 00 

TM84B 1 SS/DD 8 77 Trk Thinline $369 00 

TM84B2DD/DD8 77 Trk Thinline $479 00 

Add $59.00 For Complete 5'/*" Drive System 




MCB 1000 High 
Performance 
Business System 

Includes FREE MicroPro 
Software: • WordStar • SpeflStar 

• MailMerge • CalcStar 

• And More • Z-80A C.P.U. ^ 

• 64KB RAM 

• 328KB mini floppy disk drive 

• •CP/M operating lystem 

• ^T non-glare green phosphor video 

display screen 
• Centronics paraM printer pon 

• RS232C serial port 

• Additional dbh drive* up to Z3MB 





CASH ORDERS ONLY 

iVUCftO DATA 
SUPPLIES 



Call (216) 481 



ALL PniCES 

ARE FOR 

MAIL ORDER ONLY 

PriCK Sp«rtiC«Iion» 

and oriennos tutf«ct 

toch«n4e without 

- muct 




DEALER INQUIRIES WELCOME 



Ciicle No. 22 



No. 62 - July 1983 



MICRO 



19 



iMcaa 



CoCo Bits 




John Steiner 

This has been a busy month for me. I am looking 
forward to attending the Rainbowfest, the first show 
for the Color Computer, which is being held in Chicago 
the end of April (a fait accompli by the time you read this) . 
Also, since this is the hardware issue, I have prepared 
some news and comments on hardware accessories and 
modifications for CoCo. 

New ROMs Issued 

Bob Rosen of Spectrum Projects has passed along some 
information on new ROMs for the Color Computer. Ac- 
cording to his release, Bob has seen and tested these 
ROMs. He finds Color BASIC 1.2 to contain minor 
changes in the character I/O and interpret integer expres- 
sion routines. Extended BASIC I.l contains a few changes 
in the graphics routines. Included is a correction for the 
PCLEAR bug. Both new ROMs are completely compatible 
with existing software. 

As I commented earlier, there is a new 1 . 1 Disk ROM 
as well. According to Bob, it has been drastically changed. 
A DOS command, added to boot alternate operating 
systems such as OS-9, has necessitated a major revision. 
The DSKCON routine at $D66C in ROM 1.0 has been 
moved to $D75F in the I.l version. This causes pre-existing 
software using 1.0 version disk I/O to be incompatible with 
the new ROM. One other change is the correction of an error 
in the COPY routine. When encountering an error, COPY 
can lock up and give an OB error. The new ROM will report 
only an I/O error and leave everything imchanged. 

PCLEAR Bug 

For those of you who may not be familiar with the 
PCLEAR bug, I will describe it more thoroughly. As I com- 
mented earlier, Extended BASIC has a bug regarding the 
PCLEAR command, which is used to reset the number of 
graphics pages reserved. The problem occurs only when 
PCLEAR is used from within a large program. When a 
PCLEAR is issued, it moves the BASIC program in 
memory to its new location. At this point, it forgets where 
it was in the program and starts executing from where it 
thinks it should be. Usually this is in the middle of a line 
somewhere and a ?SN ERROR message appears. If you type 
RUN again, the program has already been moved and 
everything runs normally. The easiest way around this 
problem is to PCLEAR from immediate mode. I will have 
more details on working around this bug in a future article. 

Lower-Case Adapter 

I finally got around to installing my lower-case adapter 
board from Micro Technical Products into the TDP. I had 
used it extensively in my other color computer but waited 
until the warranty expired to install it in my new com- 
puter. After I installed the video monitor interface, the 



lower-case adapter would not fit. I had to get a 40-pin 
socket to raise the LC board above the other IC adapter 
socket. The whole thing works well together, and I now 
have light letters on a dark background, except when using 
lower case. 

The circuit board installs between the 6847 video 
display generator and its socket and allows you to return to 
normal display with a dip switch. Another switch is sup- 
plied that will switch between the internal 6847 character 
set or the alternate set included in an external ROM. You 
may hook up external switches if you want. Due to the large 
cooling slots on the top of my TDP, I can reach through with 
a plastic screwdriver and switch the internal switches any 
time I want — a convenience I never expected. 

Dual Cassette Interface 

In keeping with this month's hardware theme, I have 
included a circuit that allows dual cassettes to be hooked 
up for tape backup purposes. The circuit is simple and con- 
tains only a single DPDT relay and a switch. It is powered 
by a 9-volt battery and is connected to the computer and 
recorders by the standard 1/16 micro plugs. Figure 1 con- 
tains the circuit, which can be built in any mini-box or 
other suitable enclosure. 

To use the interface, take the cable that hooks into the 
motor switch jack and install it into the micro jack on the 
interface. Insert the plug marked playback into the 
recorder motor jack on the machine you wish to use for a 
source. Insert the other plug into the record-machine 
motor jack. Remove the plug that goes into the audio input 
jack on the playback recorder and install it in the auxiliary 
input on the machine you will use for recording. Insert the 
source tape into the machine you designate as playback 
recorder and place a destination tape into the record unit. 
Put the source recorder into PLAY and the destination unit 
into RECORD. 

To start the ball rolling, CLOAD the first program into 
the machine. When it is loaded, key C SAVE "filename": 
CLOAD, but don't press ENTER yet. Press the switch on 
the interface and hold it in while you press ENTER. The 
relay will provide power to the record motor only. After 
the program is saved, the computer motor relay will drop 
out momentarily, causing the relay in the interface to 
disengage the record motor and at the same time engage 
the playback motor circuit. When BASIC encounters the 
CLOAD after the colon, the internal motor switch 
engages, causing a new program to be loaded in. A new 
combined CSAVE : CLOAD command can be issued. 

New CoCo Reference Guide 

I walked into a Radio Shack store the other day and 
happened to notice a new reference source for the Color 
Computer. The hook, TRS-80 Color Computer Quick 
Reference Guide, catalog number 26-3194, contains 71 

{Continued on page 22) 
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^^ Alspa Computer, Inc. 






■Rie price-pertofmance leader. Includes Z80A, 1 or 2 full 8" 
drives (double density, double sided), 3 serial and 1 parallel 
port, and Winchester port Prices start at less than $2000. Net- 
working Available. DEALER / OEMjnquiries invited. 

SPECIALS on INTREGATED CIRCUITS 



7.45 
5.15 
6.45 
7.90 



6502 

6520 PIA 

6522 VIA 

6532 

2114-L300 

2716EPR0M 

2532 EPROM 

6116 2KX8CM0SRAM 

4116 RAM 



10/6,95 

10/4.90 

10/6.10 

10/ 7.40 

195 

5,90 

6.90 

5.90 



50/6.55 100/6.15 
50/4.45 100/4.15 
50/5.75 100/5.45 
50/7.00 100/6.60 
25/1.85 100/1.75 
5/5.75 10/5.35 
10/5.90 
10/5.10 



5/ 6.45 
5/ 5.45 
8f0f 14 




i?[?.lD?in!2D-fA'?-?ili!Q..?9P.'!?.U?.53!)!!!l 2.00 

Hewlett Packard WAp^ 

Write_oj^ call for grices /re=i WLl^JU 

Anchor 
Automation^ 
Signalman 
Modems 

FREE SOURCE MEMBERSHIP WITH SIGNALMAN 

All Signalman Modems are Direct Connect, and include cables 
to connect to your computer and to the telephone Signalman 
Modems provide the best price-performance values, and start 
at less than $ 1 00. Dniir »d DEM Miiriii Intth 

Mark I RS232 (99) 79 

Mark II for Atari 850 (99) 79 

Mark IV for CBM/PET with software (169) 99 

Mark V for Osborne (software available) (129) 93 
Mark VI for IBM Personal Computer (250) 1 80 

Mark VII Auto Dial/Auto Answer (1 79) 119 

Mark VIM Bell 212 Auto Dial/Answer (399) 319 



DC HAYES SmirtiMdim 

DC Hayes Smartmodem 1 200 
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Appio Einvlitor for Commo^on 64 
Scraonmikir 80 COLUMN CARD for C64 
FH066ER for C64 or VIC 
Solid Oik 2 Lo«ol St»< lor C64 or VIC 

C64A'IC Switch (networking) 

BACKUP V1.0 tipo coplor lor C64 or VIC 

CARDBOARD/6 Motherboard - VIC 
CAROAPTER/1 Atari VCS Adapter - VIC 
CARDPRINT Printer Interface ■ C64A'iC 
CARDB0ARD/3S Motherboard - VIC 
CARDEHE/I Cassette Interface - C64A'IC 
CARDRITER Ughtpen - C64A'IC 
CARDRAM/16 RAM Expansion - VIC 

We carry Apple ll-l- 

from 

Bell & Howell 



89 

149 

25 

29 

125 
20 

79 
69 
64 
32 
32 
32 
64 



Appio Emulitor for 
Commodoro 64 
16K RAM Cird for Apple 
SolM Oik 2 Lml Stntf for Apple 

Super Serial Card 

MPC RAM/BO colomn cinl for HE 

Z80 Softcard and CP/M (Microsoft) 

Parallel Printer Interface/Cable 

Apple Dumplloi (Mlcrotok) Priotir lotorfico 

Apple Domplloi with 16K Softer 

Grappler -t- Interface 

TG Products for Apple in stock 

DC Hayes Micromodem II 

Videx 80 Column Card 

Htiiu Sittwin for Apple 20% OFF 

PIE Witter Word Precoiur 



89 
59 
29 

149 
139 
235 
79 
115 
160 

140 

299 
239 

120 



B commodore 

Sn n for PimniL BdsImss, mil EduntlMil 

PETSCAN $245 baseprlce 

Allows you to connect up to 30 CBM/PET Computers to 
shared disk drives and printers. Completely transparent to the 
user. Perfect for schools or multiple word processing con- 
figuratkins Base configuration supports 2 computers. Addi- 
tional_computer tnokups $100 each. 

CBCT PET7c6T CbMuWCATlONS!"" 

COMPACK $115 

Intelllgmt Tinnliiil Pukigi 

ACIA Hardware / STCP S^are _ 

VMWtolWBlinteiito 

Includes case, power supply, full 8-bit transmission, and 
switch selectable character conversion to ASCII. 

VIDEO ENHANCER for Comimilore 64 89 

Realize video quality equal or better than composite monitor 
using standard color TV. 

SCREENMAKER 80 Colomn AdpitorforC64 149 

Provides big screen capability for business applications. 

Chess 



VIC 20 Pradictt 
BACKUP V1.0 20 

VIC RAM Cards In stock 



VICSuperExpander 
VIC16KRAM 
Tkon EMI Softwira 
HES Softwira 

VIC Omega Race 
Spiders of Mars (UMI) 
Programmers Aid 




52 
95 



32 
39 
45 



VIC Sargon I 
VIC SORF 

Meteor Run (UMI) 

VIC Radar Ratrace 

Amok (UMI) 

Snakman 

Rubik's Cube 

Programmers Reference 

FROSSER 

VIC Adventure Series 



VICTORY Softwin for VIC ni C64 

Street Sweepers 12 Maze in 3-D 



Night Rider 
Treasures o( Bat Cave 
Games Pack I 
Victory Casino 
Adventure Pack II 



11 
12 
12 
8 
12 



Cosmic Debris 
Grave Robbers Advent 
Games Pack I! 
Adventure Pack I 
Trek 



12 
12 
11 
12 
12 
11 



Commodore 64 Programmers Reference Guide 16 

MlcnCkus for C64 ir PET 19 

Computef's First Book of PET/CBM 1 1 

C64ir VIC SWITCH 125 

POWER ROM Utilities for PET/CBM 78 

WordPro 3+/64 69 

WordPro 4-t- - 8032, disk, printer 295 

SPELLMASTER spilllii cimkor for WordPro 1 70 

VISICALC for PET ATARI, or Apple 1 89 

PETRAX PET to Epsoi Gnpklcs Softwira 40 

SM-KIT Mkiitod PET/CBM ROM UHlltlos 40 

Programmers Toolkit - PET ROM Utilities 35 

CALC BESULT for C64 135 

PET Spacemaker II ROM Switch 36 

COPYWRITER Word Prtctutr for C64 69 

2 Meter PET to IEEE or IEEE to IEEE Cable 40 

Dust Cover for PET CBM, 4040, or 8050 8 
CmC litirioces lADAIBOO, ADA1450. SADI In stock 

ZRAM- CBM 64K RAM, Z80, CP/M 550 

Preinmmlii tko PET/CBM jCooipotel) - B. West 20 

Compute! First Book of VIC 11 

Wkolo PET Citiloi |Mldol|kt Gizotto) 8 

PET Fun and Games (Cursor) 1 1 

Color Chart Video Board for PET 1 25 



FlexRIe for PET CBM, C64 $110 

Database, Report Writer with calculatiojis. Mailing Lists. 
FOBfinor PlTftJil FIG modei^— Cargill/Riley $50 

Moticimpller fir FORTH for independent object code 30 

--^ 

65 



KMMM PASCAL for PET/CBM 

EARL lor PET/CRM Disk-based ASSEMBLER 



Super Graphics — BASIC Liii|ui|o Extonskins 

Fast machine language graphics routines for PET/CBM 



RAM/ROM for PET/CBM 



DISK ICU - Recovery System for PET/CBM 



4K$75 8K_$90 
'""" 40 



DISK 
SPECIALS 




Scotch (3M) 5" ss/dd 
Scotch (3M) 5" ds/dd 
Scotch (3M) 8" ss/sd 
Scotch (3M) 8" ss/dd 



10/2.25 50/2.10 100/2.05 

10/3.15 50/2.90 100/2.85 

10/2.40 50/2.20 100/2.15 

10/2.95 50/2.70 100/2.65 



We stock VERBATliM DISKS 

Write for Oooler ond OEM pricos. 

BASF 5" or 8" 10/2.00 20/1.95 100/1.85 

NEW BASF Qualimetric Disks also in stock 

Wabash 5"ss/sd 10/1.80 50/1.75 100/1.70 

Wabash 5" ss/dd 10/2.00 50/1.95 100/1.90 

Wabash 8" ss/sd 10/2.00 50/1.95 100/1.90 

We stock MAXELL DISKS 

Writo for deiler ind OEM pricei 

Disk storage Pages 10 for $5 Hub Rings 50 for $6 
Disk Library Cases 8"— 3.00 5"— 2 25 
Head Cleaning Kits 1 1 

CASSEHES— AGFA PE-6n PREMIUM 

C-10 10/61 50/58 100/50 

C-30 10/ .85 50/82 100/70 

DATASHIELD BACKUP POWER SOURCE 225 

Battery back up Unintermptible Power Supply with surge and 
noise filtering Ttte answer to your power problems. 

Zenith ZVM- 1 2 1 Green Phosphor Monitor 1 00 

BMC 12A 12" Green Monitor 80 

VOTRAX Personal Speech System 280 

VOTRAX Type-N-Talk 160 
VOICE BOX Speech Synthesizer (Apple or Atari) 

CompuServe Subscription (5 hours Iree) 32 

Prowriter Parallel Printer 389 

USI CompuMOO 4 R F Modulator 39 

Oaisywriter 2000 1 050 
Many printers available (Star, Brother, OKI, etc.) 
Wo Stock AMDEK Monitors 

AmdekOXY-1 00 Plotter 600 

A P Products 15% OFF 
Watanabe Intelligent Plotter 990 6-pen 1290 

ISOBAR 4 Ootlet S>r|( SipprasMr/Noiu Filter 49 
We stock Electrohome Monitors 

dBASE II (8" format) 325 
ALL ROOK ind SOFTWARE PRICES DISCOUNTED 



Panasonic TR-120M1P 12" Monitor (20 MHz) 
Panasonic CT-160 Dual Mode Color Monitor 



149 
285 



USI video MoMton— Gmn or AMBER 20 MHz M-ras. 
Ooiler end OEM liqolrlos livited 

Synertek SYM-1 Microcomputer SALE 189 

(aM-2/80 Synertek Video and Keyboard 349 

I systems 

Z29 Termlnil (new doticked keyboird) 680 

ZT-1 Intolligent Cemmunicitions Terminil 369 
Z1 00 1 6-blt/8-blt Systems In stock CALL 

We stock entire Zenith line. 




ATARr 

SPECIALS 
WE STOCK ENTIRE LINE— write for prices. 



Aliii 1200 
Voice Box 
FROGSEH 

Tkon EMI Siftaira 
EdiFm Sottmri 



215-822-7727 

252 Bethlehem Pike 
Colmar, PA 1891 5 



A B Computers 



WRITE FOR CATALOG. 



APO/FPO, 



549 OIX 34 

100 Anckir Medeitt— Alirl 79 

25 AM Grifkka (CcmputEJ) II 

FInt Book i( Alirl 1 1 

APX Siftwira 
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CoCo Bits 



(continued) 



pages of information on the CoCo, including all BASIC, 
Extended, and Disk commands, ROM data, character and 
data codes, and a memory map. In addition, the 6809 in- 
struction set, ZBUG, EDTASM+ commands and error 
messages are included. Line-printer variables, video and 
color tests, and computer specifications are also included. 
At $4.95 this book is quite a bargain. 

64K Upgrade 

This month, I converted some CoCos from 16K to 64K. 
The upgrades are easy to do, especially for the E and F 
boards, and with 6146 ICs at $1.00 a byte, there is little ex- 
cuse not to upgrade. Remember, though, if you break the 
seal on the bottom center screw, you will void your Radio 
Shack warranty. You may want to wait the 90 days before 
upgrading. Don't tackle this job if cutting foils on circuit 
boards and fine soldering make you squeamish. To 
upgrade a D board, replace the 1.0 BASIC ROM with 
BASIC 1.1. Just remove the old IC and plug in the new one 
in the same direction. If you have Extended BASIC, you 
can tell which ROM you have by entering EXEC 41175. 
The BASIC ROM version number will appear on the screen. 
Now the hard part; you must remove all the screws 
holding the computer to the bottom of the cabinet. In addi- 
tion, you must remove the power transformer screws. 
Turn the circuit board over and remove the several metal 
plugs that hold the shield to the circuit board. Be careful 
not to lose any of the plastic spacing washers that hold the 
shield away from the bottom of the board. 

Unsolder and remove capacitors C61, C31, C64, C35, 
C67, C45, C70, and C48. These capacitors lie between the 
memory chips and are the leftmost of the two capacitors as 
you face the computer circuit board from the front. 

Move the jumper at the right of UIO to the 16K posi- 
tion, and remove completely the jumper plug between US 
and U4. Using an X-acto knife or razor blade, cut the foil 
that supplies + 5 volts to pin 9 of the RAM chips. Then cut 
the + I2-volt line to pin 8 of the RAMs and cut the 
-12-volt line to pin 1 of the RAMs. 
Now you must connect the new 
RAMs into the existing circuits 
and add 64K logic circuitry. Use 
30-guage wirewrap wire (or equiv- 
alent) to make the following con- 



J1 



V" 




nections. The 6146 uses only a single + 5-volt supply, 
which you must connect to pins 1 and 8. Pin 9 of the 
RAMs must be connected to pin 35 of UIO, the SAM chip. 
Pin 12 of U4 is then connected to pin 16 of U8. If you stop 
here and install the 4164 ICs, you will have the standard 
Radio Shack 32K upgrade. To access the full 64K, do the 
following: 

1. Remove U29 and U5 from their sockets and bend pins 
4, 5, and 6 of U29 and pin 5 of UU in the air. Reinsert 
them and connect pin 6 of U29 to pin 8 of U29. 

2. Connect pin 4 of U29 to pin 5 of Ull. 

3. Connect pin 5 of U29 to TPl. 

4. Install 64K chips in sockets U20-U27. 

5. Reinstall the bottom shield, and reinstall the circuit 
board in the cabinet bottom. You may want to power it 
up and test it before you get it completely put back 
together. 

After completing the upgrade you may find that the 
computer will power up with a blank screen. Some 6883 
SAM chips found in the D boards will not work properly 
when used with 64K chips. One of the D boards I upgraded 
required a new 6883, and so you are forwamed. A 6883 is 
available for about $30.00. Among other sources, Spec- 
trum Projects, 95-15 86 Drive, Woodhaven, NY 11421, 
provides RAMs with upgrade instructions, SAM chips, and 
other CoCo parts. 

Next month I will detail the 16K-64K upgrade infor- 
mation for E and F boards. 

Parts List for Cassette Interface 



RL 1 
SW 1 

Jl 

PI, P2 
Bl 



DPDT relay 

SPST normally open push button switch 

1/16 micro jack 

1/16 micro plug 

9-volt transistor battery 



P1 



^ 



P2 



To Computer 
Motor Jack 



9V 



r 


— o 1 




1 


RL1 


1 

Tt 


— 


SW1 




~ B1 





]0 



To Record 
Motor 



To Playback 



Motor 



JMCftO 



You may contact Mr. Steiner at 508 Fourth 
Avenue NW, Riverside, ND 58078. 
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THE MICRO COMPUTER RUSINESS 

WILL GROW FROM $10 TO $100 BILLION 

IN THE NEXT EIGHT YEARS! 

ARE YOU READY TO CASH IN? 



micro computer business is predicted to grow from Its present $10 billion to $100 billion before 1990! Imagine the 
possibilities tfiis opens for you! No matter where you live, if you're starting up or presently in business, no other Industry offers 
you more opportunities! 

Now, finally, all the inside information you need to secure a prosperous future in this dynamic industry is available in 
one place - THE COMPUTER ENTREPRENEUR IMANUAL! - An immense information source, compiled by our inquisitive research 
team, aided by a panel of experts and business people from all areas of the computer industry! 

We present the inside story of more than 100 lucrative computer businesses you can enter, where you'll find the real 
opportunities for the eighties: from one man operations like Programming Author, Word Processing Center or Consulting, to 
Systems House, Service Bureau, Computer Store etc! Many at little or no investment! All the invaluable facts and figures: 
How to start. Capital needs. Profit estimates and Margins, How to Sell and Market, How missing technical or business 
experience need not stand In your way, Source of Suppliers, etc! Details that could take years to find out on your own! 

We'll show you inside tricks, like how to never again pay retail for computer products and consumer electronics, even for 
one item - right now, while you're starting your business! How to get free merchandise and trade show invitations, etc. This alone 
will more than pay for the manual! You'll read actual case histories of other computer entrepreneurs, so you can learn from their 
mistakes, and profit from their success stories! Where you'll be one year from now depends on your actions today! Let us 
show you how to take the first crucial steps! 

Order now and take advantage of our limited introduction special, THE COMPUTER ENTREPRENEUR MANUAL, and a 
six month subscription to THE COMPUTER ENTREPRENEUR REPORT/NEWSLETTER ( so you re always up-to-date with the 
industry ), both for only $29.95! You must be convinced on how easy you can strike it rich in the micro computer business - or you 
may return the manual for a full refund within thirty days! USE OUR TOLL FREE NUMBER TO ORDER! 




EVERYTHING YOU NEED TO KNOW 

TO SUCCEED IN THE COMPUTER BUSINESS 

IS ALL IN THIS MANUAL! 



THE COMPUTER ENTREPRENEUR MANUAL has the answers to all your questions about 
selecting, starting and succesfully running a computer business! There has never been such a 
comprehensive collection of know-how and information about this business in one place! All the 
facts you need to plan and acheive your goals In easy-to-follow, step-by-step instructions! 
These are some of the 100-plus businesses covered in PART ONE ot the manual, with the 
facts on How to start and run, Start-up Coat ( Even how to operate on a shoestring ), What profits 
I to expect. Wholesale prices, Mark-ups, Suppliers, future outlook, case histories for each, etc: 

Systems House, Software Author ( who to sell to and who to avoid ), Service Bureau, Soft- 
I ware Publisher ( IHow to find programs that sell, Word Processing Service, Consulting and Con- 
*sultant Broker ( use your skiiis or those of others, make $150 - $1000 a day!). The Incredible 
Games Business, Computer Store ( Franchises: Pro and Contra, or a low inventory store in your 
home! ), OEM, Hardware Mfg, Data base and Teletext Service ( big prospects! ). Used Com- 
puters, Repairs, Rent-A-Computer, Promote Fests and Trade Shows, Turnkey Systems, 
Bartering, Mail Order, Compile and rent mailing lists, Specialized Data Headhunting and Temp Help Service, Tech Writer Shop, Custom Engineering, The 
highly profitable Seminars and Training Business, and many more! 

Many new ideas and ground floor opportunities! Interviews and success stories on companies of all sizes! Privy Info on the profits made: How some 
computer store operators net $100 - $250,000! Little known outfits that made their owners millionaires, one of these low-key companies, malting simple boards, 
went from nil to 320,000,000 and 100 employees in four years! Programmers that make $300,000, Thousands of micro millionaires in the malting, etc! 

Whatever your goal is - Silicon Valley Tycoon, or just a business at home - we guarantee you'll find a business to suit you - or your money back! 

PART TWO of the manual is loaded with the know-how and "streetflghting" savvy you need, both as a novice or business veteran, to get started, to stay 
and to prosper in the micro computer business! A goldmine of information in clear and easy-to-use Instructions: How to prepare your Business Plan, Outside 
financing, The mistakes you must avoid, How to hire and manage employees. Incorporation ( when, and how to do It cheaply ), Surviving bad times. Record 
Keeping, how to estimate your market before you start, Use multiple locations to maximize profits, how to promote and stay steps ahead of the competi- 
tion! How to get free advertising, free merchandise, free advice, Power negotiating with suppliers to double your profit margins, etc! Even how to keep a 
present job while starting a business part time! 

Don't miss this opportunity to be part of this great industry - the next success story could be your own! Order the manual today! Part one and two, 
bound in a deluxe ring binder, where you can also collect our newsletter ( free for six months with the manual - a $32.50 value! ) - all for only $29.95! 

Order by phone (Credit cards only), or use the coupon: 




THE COMPUTER ENTREPRENEUR NEWSLEHER - 

ALL THE LATEST INSIDE BUSINESS NEWSI 
NOW! SIX MONTHS FREE WITH YOUR MANUAL! 

You're always attuned to the industry, and your 
manual kept up-to-date, with our newsletter! Each issue has 
the latest business news. Ideas, new suppliers, our Jn- 
dispensible "watchdog" column on profits, discounts 
( don't miss mfg's promos, like recently, when top video moni- 
tor sold at $80 - that's half wholesale, one third of the retail 
price! ), the competition, the big deals, etc! Feature stories 
with start-up info and case histories on new micro busi- 
nesses! 

You'll get invitations to trade shows and conventions, 
the usage of our advisory service and our discount buying 
service for your purchases! 

You'll find many Items in our newsletter that will save 
you the cost of your manual many times over! ^ 1982 THE 



the 
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\voi 




CALL TOLL FREE! 

CHARGE IT! 

Credit Card Orders 

( MC, VISA only ) 

accepted 24 hours/day 

1 -800-227-3800 

Ask for extension 1135 

In California call 

1 -800-792-0990 




lliiill^pS:^iiliiiilliilllilillllltllllllllltllllllliiiniiiiiiiiiiiiiiiiiiiii 

i fvlail to THE COMPUTER ENTREPRENEUR PUBLISHING CO. 

= PC BOX 456, Grand Cantral Station, New York, N.Y. 10163 

= Please send me THE COIMPUTEfl ENTREPRENEUR 

5 MANUAL, and the six month free subscription to 

S THE COMPUTER ENTREPRENEUR REPORT/NEWSLETTER. 

= All for only S29.9S, plus $3 for postage/handling ( NY resi- 

s dents; add $2.64 for sales tax ). If I decide not to keep the 

s manual, I may return it within 30 days lor a full refund. 



= NAME: 



= ADDRESS: 



CITY, STATE, ZIP: 



= □ Check or M.O. enclosed Charge to □ VISA □ MC 
= CARD# 



COMPUTER ENTREPRENEUR = 



= Exp. Date: - 
i SIGNATURE: 



MM0783_ 
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Interface 



by Ralph Tenny 

This month we need to complement 
the multi-bit output scheme 
developed for RS-232 serial ports. 

For any computer that implements 
the serial port as a software function, 
Serial In, Serial Out, and Common may 
be all that is available. On CoCo, the 
printer software uses Serial In as Busy, 
but when using a modem (used to allow 
communication with remote com- 
puters via telephone lines), CoCo has a 
fourth line called CD for Carrier 
Detect, which the modem uses for 
"Message coming! " 

In previous sessions we have 
discussed how to program CoCo's 
Serial In and Serial Out lines, which are 
port lines on CoCo's PIA I/O (program- 
mable interface adapter). However, the 
CD line is one of four special lines: 
CAl, CBl, CA2, and CB2. CAl and 
CBl can be used for input only, and 
CA2 and CB2 can be used for either in- 
put or output. All four of these lines 
can be used as interiupt inputs. An in- 
terrupt is a way of gaining the com- 
puter's attention to service events not 
recognized by whatever program is 
operating. Here's an inexact but useful 
example: on computers running in 
BASIC, the BREAK key is monitored by 
the BASIC interpreter, but a machine- 
language program will not respond to 
BREAK unless the program is written 
to scan the keyboard and watch for the 
BREAK key. So, if something goes 
wrong, all you can do is hit the RESET 
button to regain control. With an inter- 
rupt, it would be possible to gain con- 
trol without using RESET. 

Most modern processors have 
RESET (used for power-up initializa- 
tion), NMI (non-maskable interrupt) 
and IRQ (interrupt request). IRQ is 
recognized by the processor depending 
on whether the interrupt flag (a special 
bit in the status register) is set or 
cleared. NMI will always be recognized 
at the end of the instmction being pro- 
cessed, and RESET is a shut-down- 
now-and-start-over signal. We will deal 
with interrupt programming later. 

Only CAl and CBl of U4 are 
available on CoCo for normal program- 
ming; CBl goes to the cartridge slot 
and CAl is the CD line on the serial 



port. You may remember that we ac- 
cess the Data Direction Registers in the 
PIA by changing Bit 2 of the Control 
Register from logic 1 to logic zero. A 
similar form of indirect access is used 
for the CA and CB lines in the PIA. 
Figure 1 shows the Control Register 
contents according to function; as men- 
tioned above. Bit B2 is the familiar 
switch that allows us to read and write 
either the DDR or the port at the same 
address ($FF20 for Port A and $FF22 for 
Port B). Bits B6 and B7 are interrupt 
flags, which means that they are set 
when the input requirements for CAl 
and CBl are met as discussed below. 



Line 20 reads CRA, and line 30 prints 
the value (probably 52). Line 40 reads 
Port A, which will reset B7 as it was 
set, and line 50 starts over. After you 
close the switch momentarily, line 30 
will (probably) print 180. If you convert 
52 and 180 to hex numbers, you get $34 
and $B4 respectively, which indicates 
that B7 went high in response to activ- 
ity on CAl. 

Figure 2 is the schematic of an input 
adapter for a serial port; it can read up 
to eight bits, converting them to a 
serial input data stream. Two types of 
integrated circuits we haven't looked at 
before are used in this design; the 



Figure 1. 


Bit assignments and functions of 6821 PIA Control Register. 
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B6 and B7 are read-only, while the 
other bits may be read or written. 
Remember also that the Control 
Register is accessed when the LSB 
[least significant bit] of the address is 
on ($FF21 for CRA and $FF23 for CRB). 

For now, we will pass over Bits B3, 
B4 and B5; I recommend that B5 and B4 
be programmed to logic 1 and B3 to 
logic zero. On CoCo, CA2 of U4 con- 
trols the cassette motor and CB2 
enables sound output, so this program- 
ming leaves those bits inactive. 

The following mini-program will il- 
lustrate how to read CAl in a noninter- 
rupt mode. Let's review the principle: 
when CAl is driven by an external 
signal, flag B7 in the Control Register is 
set high. This flag must be reset before 
another input can be detected, and this 
is accomplished by reading Port A (read 
Port B to reset flag B6). Connect 5V to 
10 volt source in series with a switch 
between pins 1 and 3 of the serial port, 
so that a positive voltage is applied to 
pin 1 when the switch is closed. Watch 
what happens in this program if you close 
the switch after line 30 executes: 
10FORX=1TO1500:NEXTX 
20A = PEEK(65313) 
30 PRINT A 
40 B = PEEK(65312) 
50GOTO10 

Line 10 provides a delay that slows 
down the action for easier observation. 



tiansmission gate and the sequencer. A 
transmission gate is implemented in 
CMOS logic, and its function is like 
that of a tri-state game — to disconnect 
one signal from another. Figure 2 
shows four such blocks, marked 
"TG". We must realize that an input 
signal is passed through to the output 
only when the control line is high. A 
sequencer is illustrated by Ul in Figure 
2; it is a decimal counter with specially 
decoded output states "0" to "9". 
Only one output is active (high) at one 
time; when Ul's RESET line is ac- 
tivated, output goes high. On the first 



Figure 2. Schematic diagram of a 
muitl-bit serial Input adapter. Refer 
to individual device schematics for 
pin numbers. 




clock pulse, goes low and output 1 
goes high. This sequence continues un- 
til state 9 "rolls over" to state or un- 
til RESET is used again. A sequencer 
will activate several different func- 
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tions, one at a time, with the time be- 
tween events determined by the clock 
rate for the sequencer. In our circuit, 
from one to eight TGs will sequentially 
connect input logic levels to the Serial 
In line. 

Schmitt Triggers were synthesized 
from inverters in Session 4, but this 
function is available in CMOS logic as 
the CD4093. This device, along with 
the sequencer and transmission gates 
discussed above, make up our multi-bit 
input accessory shown in figure 2. 
Figure 3 shows the timing diagram for 
the circuit; the following discussion 
refers to figure 2 and figure 3. U2a is an 
oscillator that cycles Ul through all its 
count states. U2b, Rl, and CI hold 
Ul's RESET low (inactive] for most of 
an operational cycle. TGd and R2 pull 
down on Rl and CI, slowly discharging 
CI to U2b's threshold, causing it to 
reset Ul. This reset operation is started 
when output 9 goes high at the end of 
an operational cycle. 

Let's pick up the operation when 
state 9 comes true. Only TGd is turned 
on, so the Serial In line is pulled high 
by R3 and TGd has begun to discharge 
U2d are inhibited by U2c, stopping the 
clock and input on CD. When CI is 
clock and input on CD. When CI is 
discharged far enough, U2b activates 
RESET and state 9 changes to state 0. 
U2a and U2d are released, allowing a 
normal cycle to start. The time con- 



stant Rl/Cl was deliberately chosen to 
give a long "off" time for the CD in- 
put, so that a program can more easily 
determine when the cyle starts. Once 
U2d is enabled again, CD is pulled high 
(a logic zero at the CD pin on U4], once 
for each clock cycle. 

A normal operational cycle will 
begin with a pulse for state when no 
input is expected. There will then be an 
input on CD and a logic level input on 
Serial In for each successive state 
through state 8, then the cycle ter- 
minates when state 9 happens again. 

Programming to read this input ac- 
cessory should accomplish the follow- 
ing sequence: 

1. Initialize U4's Control Register A 
to $34. 

2. Read Port A to reset B7. 

3. Monitor B7 in a loop, waiting for 
it to go high. 

4. When B7 goes high, check for loop 
time, and identify the long cycle. 
Read Port A to reset B7. 

5. Catch the next pulse (state 0), then 
read Bit of Port B for eight 
successive pulses, resetting B7 
each time. 

6. Assemble the eight input bits into 
a data byte and take whatever 
action is dictated by data 

data. 

Of course, either assembly language 
or BASIC can be used for this program, 
but the relative time constants may 



need to be adjusted for faster operation 
if assembly language is used. Next 
time: programs solving the above prob- 
lem, contrasting BASIC, assembly 
language and interrupt programming. 



Figure 3. Timing diagram for the 
serial input adapter. 
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Parts List for the Input Accessory: 

Ul - CD4017, Radio Shack 276-2417 
U2 - CD4093, R/S 276-2493 
TG - CD4066, R/S 276-2466 
CI - .22 uF, 16 volt (or more) 

capacitor 
C2 - .001 uF, 16 voh capacitor 
Rl - 22k ohm, % watt resistor 
R2 - 8.2k ohm, V4 watt resistor 
R3 - I megohm, 14 watt resistor 
R4 - 4.7k ohm, 14 watt resistor 
Ql - 2N3906 PNP transistor, R/S 

276-1604 
VCC - -i-Sv to -I- lOv (Battery OK) 



Please forward questions and sug- 
gestions for discussion topics to Mi. 
Tennx^at P.O. Box 545, Richardson, TX 
75080. 



Listing 1 



* This prograjn will calibrate a Serial Port Adapter 



1000 
1000 86 
1002 B7 
1005 8E 
1008 B6 
lOOB OF 
lOOD F6 
1010 OC 
1012 CA 
lOl-i 27 
1016 B6 
1019 96 
lOlB A7 
lOlF 30 
1021 26 
1023 39 
1024 



FF20 
FF21 
0020 

34 

FF21 

0014 

FF20 

20 

FF21 

20 

80 

F7 

FF20 

20 

89 1024 

IF 

E8 



* Equati 
PORT 
CTLR 
COUNT 

START 



STRTl 
IN 



EXIT 
BUFR 



es 

EQU 

EQU 

EQU 

ORG 

LDA 

STA 

LDX 

LDA 

CLR 

LDB 

INC 

ANDB 

BEQ 

LDA 

LDA 

STA 

LEAX 

BNE 

RTS 

RMB 

END 



$FF20 

$FF21 

$20 

$1000 

*$34 

CTLR 

*20 

PORT 

COUNT 

CTLR 

COUNT 

*$80 

IN 

PORT 

COUNT 

BUFR,X 

-1,X 

STRTl 

20 

START 



SERIAL IN port 
Control register 
Count register 

Init control register 

Set index 

Clear IRQA 

Zero counter 

Test for IRQA set 

Record operation 

Mask to MSB 

Not set, Try again 

Otherwise, Clear IRQA 

and keep a record 

Decrement index 
Loop until Index = 
Then quit 
List of counts 



* This program will input from a Serial Port Adapter 



1000 





» Equat 


es 






FF20 


PORTA 


EQU 


$FF20 


SERIAL IN port 


FF21 


CTLR 


EQU 


$FF21 


Control register 


FF22 


PORTB 


EQU 


$FF22 




0020 


COUNT 


EQU 
ORG 


$20 
$1000 


Count register 



1000 86 
1002 B7 
1005 8E 
1008 B6 
lOOB OF 
lOOD F6 
1010 OC 
1012 C4 
1014 27 
1016 B6 
1019 96 
lOlB 81 
10 ID 23 
lOlF OF 
1021 F6 
1024 OC 
1026 C4 
1028 27 
102A B6 
102D B6 
1030 A7 
1034 96 
1036 81 
1038 22 
103A 30 
103C 20 
103E 86 
IQ'40 64 
1044 79 
1047 30 
1049 ■iA 
lO'lA 26 
104C 39 
lOiD 
1059 00 



34 

FF21 

0000 

FF20 

20 

FF21 

20 

80 

F7 

FF20 

20 

25 

EC 

20 

FF21 

20 

80 

F7 

FF20 

FF22 

89 104D 

20 

25 

04 

01 

El 

OB 

89 104D 

1059 

IF 

F4 



START 



STRTl 
IN 



STRT2 
IN2 



BUILD 
SHIFT 



EXIT 
BUFR 
WORD 



LDA 

STA 

LDX 

LDA 

CLR 

LDB 

INC 

ANDB 

BEQ 

LDA 

LDA 

CHPA 

BLS 

CLR 

LCB 

INC 

ANDB 

BEQ 

LDA 

LDA 

STA 

LDA 

CMPA 

BHI 

LEAX 

BRA 

LDA 

LSR 

ROL 

LEAX 

DECA 

BNE 

RTS 

RMB 

FCB 

END 



*$34 

CTLR 

#0 

PORTA 

COUNT 

CTLR 

COUNT 

*$80 

IN 

PORTA 

COUNT 

*$25 

STRTl 

COUNT 

CTLR 

COUNT 

*$80 

IN2 

PORTA 

PORTB 

BUFR.X 

COUNT 

*$25 

BUILD 

1,X 

STRT2 

*11 

BUFR,X 

WORD 

-1,X 

SHIFT 

12 


START 



Init control register 

Set index 

Clear IRQA 

Zero counter 

Test for IRQA set 

Record operation 

Mask to MSB 

Not set, Try again 

Otherwise, Clear IRQA 

Test for long cycle 

Loop until long cycle 
New set of numbers 
Test for IRQA again 
Count operations 
Mask to MSB 
Loop until new edge 
and reset IRQA 
Read RS232 line 

Test count 

Assemble input word 

Increment index 

Loop until long cycle 

Set a counter 

Shift bit into carry 

Shift bit into word 

Step back through buffer 

Count bits 

Loop until 8 bits recovered 

then quit 

List of counts 
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by Phil Daley and 
Loren Wright 



The next nine pages offer information that will help 
you choose a system to suit your needs. A detailed chart, 
beginning on page 28, provides comparisons of impor- 
tant features found on the ten systems shown and 
described here. 



Atari 400 

The Atari 400 is essentially the 
same machine as the 800 in a less ex- 
pensive package. The keyboard is a flat 
membrane type. (There is audio feed- 
back on as each key is pressed. Also, a 
replacement full-stroke keyboard is 
available from InHome Products and 
others.) There is no video monitor out- 
put and no right cartridge slot. Not 
much software was written for right 
cartridges, and the new 1200XL doesn't 
include the slot either. The Atari 400 
comes with 16K, but this may be 
upgraded by a second-source board. 
Generally, the same software runs in 
both the 400 and 800. The list price at 
press time is $199, but this is heavily 
discounted. 



Atari 800 

The Atari 800 has been the flagship 
of the Atari computer line since 1981. 
It includes a full-stroke keyboard and 
48K RAM. An Atari BASIC cartridge is 
optional. At press time, the Atari 800 
listed for $679, but was available at 
considerable discount. Atari computers 
use their own serial bus for connection 
to peripherals, such as disk drives, 
printers, modem, cassette machine, 
and the 850 interface module. In addi- 
tion, there are four controller ports, 
which may be used for joysticks, pad- 
dles, lightpens, and other parallel or 
A-to-D interfacing applications. An RF 
modulator is built-in, with a cable in- 
cluded for hook-up to a TV splitter. The 
Atari 800 also has a connector for out- 
put to a video monitor. 

With 16 colors available in 16 dif- 
ferent luminances, the Atari has an ef- 
fective pallette of 256 different colors. 
There are 12 different graphics modes 
available; three are text and nine are 
graphics. In addition, other modes are 
available in machine language or with 
BASIC POKE statements, making a 
total of 17. The graphics modes range 
from a one-color (two-luminance) 
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40 X 24 character mode, through an 
80 X 192 16-color mode, to a one-color 
320 X 192 high-resolution mode. Op- 
tions may be exercised to prevent the 
default split-screen mode or to prevent 
clearing the screen. Atari BASIC has a 
full set of convenient graphics keywords, 



including 
GRAPHICS, 
COLOR, DRAWTO, 
LOCATE, PLOT, POSITION, 
PUT/GET, and SETCOLOR. Movable 
object blocks, called players and 
missiles, can be programmed 256 bytes 
high and 8 bits (players) or 2 bits 
(missiles) wide. The system can main- 
tain four players and four missiles or, 
alternately, five players. 



Sound may be programmed with a 
convenient SOUND statement. There 
are four independent voices^ with pitch 
over a range of four octaves), volume, 
and distortion controllable. Using more 
advanced techniques, more range and 
complicated effects may be achieved. 

When the BASIC language cartridge 
is removed, the memory it normally 
occupies becomes available for alter- 
nate languages, such as FORTH, 
Pascal, LOGO, and Microsoft BASIC, 
or for machine-language programs, 
such as sophisticated games. 




Atari 1200XL 

The 1200XL, Atari's new machine, 
is essentially similar to the 400 and 
800. It has a more streamlined ap- 
pearance. The keyboard has been greatly 
enhanced by the relocation of a number 
of keys and by the addition of program- 
mable function keys. Also, cursor 
movements are accomplished with 
single keys. The 1200XL has an inter- 
national character set available. There 
is only one cartridge slot, but there is 
very little existing software that re- 
quires the other slot. There are only 
two controller ports. 

The operating system has been 
rewritten, such that four more graphics 
modes are conveniently programmable 
from BASIC. (These modes are present 
in the 400 and 800, but they can only 
be accessed using an advanced tech- 
nique called display list programming.) 
Some existing software for the 400 and 
800 will not run on the 1200XL as a 
result of the operating system rewrite. 



No. 62 - July 1983 



MICRO 



27 



SYSTEM 



o u 

(0 eo 

3 2 3 

C E C 

(0 CO CB 

sz z 



■o 
o 
u 

3 

■o 

'a <A 
■a .h 
< u. 



O 

E 

(D 



^1 
' 1 

" X 

M HI 



Keyboard 



a 

<A 

h- 3 «: 



C 
O 

C3 - 

o CO 

"D 1- 

O O 

o s 

>. s 

<! a 



Display 



■2 - = 

<A O -J O 

E 5 S « e "" 

3 IB m 



> "■ y " 5 -E 

t- ce _i « - • 



a 4> 



c 



C3 
(I) 

w 

<>> 

«!2 
o 
o 

oo 



Graphics 



a 

CI) 

55 



2 



o 
oc 

^ o 
5'o 
xo 






CB O O ^ O 

O Q. =:a: o 



Sounds 
Produced 



0) o 
O) E 

« o S 



Apple II + 



Apple lie 



■5.E 

C3L.O 



T-OOJ 



Atari 400 



0,0 

§2 



o"3 

"I 
qs 

CLCO 



OS 



Atari 800 



€35 



II 



Si 
of 

(Leo 



So 



»^ 



if » 

X 



[S 



15 



Atari 1200 



is 



S| 

d i 



Commodore 
64 



o n 

O (SCO 









S£5 



VIC-20 



O « 

p 

C (O 



Q (oS 






coco 



_ Q. 
iiiA-^ 



PET 4032 






s". 



■CiS 



a 2 a 



< 

Z 2 



TRS-80C 



IS 

ois; 



go: c; 






» 



s 



Tl 99/4A 



P-S5 



28 



MICRO 



No. 62 - July 1983 























'^^^' 


Mass 


Storage Devices 
























?< 




Game Paddles 


BASIC 


Printer 




Tape Recorders Disk Drives 




o 




Joysticics 












1 




(0 

>< 


S 






c c 


u 






























CO 




>t O 




c 

? 


o 
w 

c 

CO 

a. 


E 
o 
■o 
o 


1 1 










3 


9 


> r > 
~ O " 


O 


I. 

O 


_ « 


S 


ype 
ompat 

roportio 
rice 


11. li 


ame 
ype of 
peciai 
rice 


SYSTEM 




o 


U 


o a o 


O 


<0 


S^ 


S.O 


— 5 2 ? 5 ■! 






« 


Q. 


* OQ. 


Q. 


a 


MO. 


l-Q. 


1- u o- Q- 


W << Q. OC 


L z ►- W Q. 1 








1 






mS 








° 




a 








r^ 


s 


1 






Apple II + 




,- 


1 


(D 


f 


S3 

1 gg 


1 


ii 


z 




1 


1 


£ 


3e 
* 




1 1 


If 


1 


1 


1 


































, 
















8 


















"5 






m - 


s 




% 












1 






fi 








% 




1 


!S 








1 


n 






Apple lie 




,- 


s 


<D 




25 


< 


ill 


1 


T3 


-' 


a. 




to 




i 1 


in 


^ 


1 


i 








s - 

o 

(D 
CO ^ 


■<*■ 


, 


J 


^ 








1 ;, 

- •Si 


1 




£ 


+ _ 


J 


1 




1 

u 


1 


Atari 400 
















































s 

a. 
(0 ' 


^ 


3 


^ 


2 


? 

li 

«» 






la 
II 


r. 
u 

1 


1 


£ 




o 

z 


i 


CO 

CO 


1 


IS 


Atari 800 






i 

■5 






s 






is 




|£ 








i? 








? 




Atari 1200 




- 


CO 


^ 


, 8 




S 
§ 




S3 


°a 


11 
o< 




Q. 


00 


mS 


o 

z 


i 


(0 


3 
o 

c 










"5 

1 

CO 


O 




1 


g 


1 


E 

o -^ 
> «* 


SS 
11 


18 
l| 




^ 


CM 


o 


lii 


1 g 


t: 

« 

LLJ 
UJ 
Ul 




i 


Commodore 
64 






















.*^ 


























"5 










^■| 


i 


£S 


"ac 








■« 




« 


5 

in 


^ 




VIC-20 




,_ 


(0 


o 


i: 

S 


i 


o 


^1 


So 

> » 




i 




i 


U 


i < 


* Z 1 


1 i 


UJ 


1 


i 








ffl 




































2 




PET 4032 






u 














o 
















s 


^ 


S 
















x: 


a> 


s 






S" 


















2 


: Hi 


o 


m 






CM 


CO 


o 


S 


S 


g 






< » 


o 

z 






1 




1 




3 


m 


lU 


'■■? ^ 


s 




















f 






-- 








'••■ . - ' 


:'•■'•' 


?'' 


K 


- ' 








in 












i'i\ 












M ' 


; :.• ' 






• 










1 




c 


2i 


1 


^8 


<Ui.i 


1 


01 


c 




2£ 


< 


3.?' s 
1 il 




i 


i_ 


^ 


TRS-80C 






1 
o 

a 1 






si 


2 

o 




CD 

c 

1 


if 


(D 

§ 


1 


£ 

5 




o 
m 

1 ? 


I 5 


o 
(0 

a. 

E 


CO 


o 


8 


Tl 99/4A 




W 




CO 




»< 


cc 






GCO 








i2 < 




, ^ 




z 


t» 





^^N 



No. 62 -July 1983 



MICRO 



29 





Apple II, Apple 11 + 



The Apple computer is probably the 
most adaptable computer on the 
market, and has had the most software 
written for it of any computer in the 
world. Each hardware upgrade has 
maintained compatibility with pre- 
vious models and each software 
upgrade has provided conversion pro- 
grams and upward compatibility. This 
relatively constant background and 
modest cost has produced the largest 
quantity of software available for a 
single computer. Many schools use 
Apples as the main computer learning 
tool and a great quantity of educational 
software has followed. 

The Apple II hardware architecture 
was designed to make interfacing the 
computer to external devices easy, and 
the multiplicity of add-on hardware at- 



and 




tests to the success of this strategy. Cur- 
rently available microprocessor additions 
include Z-80, 8080, 6809, and 68000 
cards with a 16032 card in the works. 

Almost every computer language in 
the world can be run on the Apple, in- 
cluding a new Pascal-like language, 
Modula-2, by Nicholas Wirth. The 
Applesoft BASIC language includes 
low- and high-resolution plotting com- 
mands that simplify creating graphics 
pictures, and there are many machine- 
language programs available for 
creating animation and detailed 
graphics designs. The biggest criticism 
levelled at the Apple was the lack of 
lower case, which has been corrected 
on the He, and additional hardware can 
be bought to upgrade older Apples for 
lower-case display and entry. 



Apple Me 
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TRS-80 Color Computer 




The CoCo, as it is known, has 
tremendous potential to become the 
most versatile of the low-cost com- 
puters. Expanded to 32K RAM, a Color 
disk system can be added (156K per 5" 
double-density disk], and with minor 
or no alterations, depending on the 
manufacturer, it can access the full 64K 
RAM present and run the operating 
systems for the standard 6809 micros. 
Flex, and OS-9. With Extended BASIC, 
it has the largest and most versatile 
BASIC among all the low-cost micros. 

The CoCo has five graphics modes 
with special commands for drawing 



lines and circles, copying pictures from 
one screen to another, and filling 
specified areas with a specified color. 
The string functions include com- 
mands to search a string for a specified 
string, make a string of specified length 
out of a specified character, convert to 
and from hexadecimal, and replace one 
portion of a string with another. For 
formatted output, the BASIC includes 
PRINT USING, which has decimal 
point alignment, comma insert, dollar 
sign lead, asterisk lead, floating dollar 
sign, sign before or after, exponential 
format, and leading spaces. The music 



command includes note names or 
numbers (including sharps and flats), 
octave, volume, tempo, note length, 
and pause. 

Even though Radio Shack is not giv- 
ing as much support to the product as 
they could, several CoCo-only 
magazines have spmng up, many third- 
party manufacturers have started pro- 
ducing both software and hardware, 
and a good deal of giass-root support 
has sprung up as attested to by the 
showing at the Rainbowfest in Chicago 
(see CoCo Bits). 
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VIC-20 



The lowest priced computer in 
Commodore's line at press time was 
listed at $199.95, but discounted as low 
as $88. The VIC-20 features a color 
display of 23 rows of 22 characters, 5K 
of RAM (expandable to 29K), and a full- 
featured BASIC-in-ROM. Two char- 
acter sets are easily available from the 
keyboard. One contains capital letters 
and an extensive assortment of graphic 
characters. The other replaces the 
capital letters with lower-case letters, 
and replaces some of the graphic 
characters with upper-case letters. 
Eight colors are available for characters 



and the border; 16 are available for the 
screen and auxiliary register. The 
pointer to the character ROM may be 
changed to point to RAM, where you 
can store your own character defini- 
tions. Additional capabilities include 
double-height characters and 
multicolor-mode characters. The latter 
allows four colors to be used at once in 
a character. Limited high-resolution 
graphics are possible. 

The VIC has three voices for simple 
music, covering a five-octave range, and 
another voice for noise. The Super- 
Expander cartridge adds 3K of RAM and 



convenient commands for graphics and 
sound. Additional upgrades include 3K, 
8K, 16K and 24K RAM cartridges, the 
inexpensive 1541 disk drive that stores 
176K per 5" diskette, and the 1525 dot- 
matrix printer. At $110 Ust, the VIC- 
Modem is one of the least expensive 
available. An IEEE-488 adaptor car- 
tridge, available from a number of non- 
CBM manufacturers, allows use of 
Commodore dual disk drives, hard disk 
units, letter-quality printers, and a large 
variety of scientific instruments 
manufactured by Hewlett-Packard, 
Tektronix, Fluke, and others. 





The Commodore 64 now lists for 
about $499.95, but is available at con- 
siderable discount. The C64 includes 
64K, a 40 X 25-character color display, 
and BASIC-in-ROM essentially inden- 
tical to that of the VIC-20. The 6510 
microprocessor allows bank switching 
of color memory, character-generator 
ROM, and I/O so that nearly 39K is 
available for BASIC programs. For 
other applications, such as alternate 
languages and machine-language pro- 
grams, an additional 8K to 16K can be 
freed. Character graphics are identical 
to those of the VIC-20, except that 
eight additional character and border 

32 




colors are available. An additional con- 
troller port (for a total of two) and a 
built-in RF modulator distinguish the 
C64 from the VIC externally. 

Eight movable object blocks, called 
sprites, may be programmed. These are 
maintained by the VIC n CRT con- 
troller chip. Each sprite may be 24 x 21 
pixels in size. The color and 
X,Y-position are specified and the 
sprite is displayed at that position on 
the screen. Features include multi- 
color mode, X-expand, Y-expand, sprite 
collision detection, and background 
collision detection. 

The SID (sound interface device) 

MICRO 



chip allows three programmable music 
voices. The frequency is selectable over 
a range of nine octaves, wit h triangle, _ 
sawtooth, variable-pulse-width rec- 
tangular, and noise waveforms 
available. Each voice has a program- 
mable envelope generator, where at- 
tack, decay, sustain, and release may 
be programmed. In addition, high-pass, 
low-pass, and band-pass filters may be 
selected, and synchronization and ring 
modulation between two voices can be 
programmed. The audio signal is com- 
patible with high-fidelity amplifiers, 
and the quality approaches that of 
dedicated synthesizers. 
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PET 4032 



The PET was the original Com- 
modore computer introduced in 1977. 
In today's advanced configuration, the 
4032 includes a full-sized keyboard 
with separate numeric keypad. The 
black-and-white display is directed to 
the built-in 12-inch green-phosphor 
monitor. Interfaces include two 
cassette ports, a parallel port, expan- 
sion port, and IEEE-488 port. The 4032 
has 32K RAM and BASIC 4, occupying 
18K ROM. There are two character sets 
available, one with upper case and 
graphics characters, and the other with 
lower case and upper case. The graphics 
character set is one of the most com- 
plete in a home computer. BASIC pro- 
grams are generally compatible among 
PET, VlC-20, and Commodore 64. 

Peripherals available from Com- 
modore for the IEEE-488 bus include 
several printers; .5 Mbyte, 1 Mbyte, 
and 2 Mbyte dual floppy disk drives,- a 
single floppy drive; and 5 Mbyte and 
7.5 Mbyte hard disk units. Because the 
IEEE-488 is an industry standard, many 
sophisticated scientific instruments from 
Hewlett-Packard, Tektronix, Fluke, and 
others can be used with the PET. 
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Texas Instruments 99/4A 



The TI is a home computer, which 
is also aimed at the educational 
m^arket. It has impressive built-in hard- 
ware capabilities including a 16-bit 
microprocessor, the only low-cost 
computer to have one, and graphic 



sprites. The only languages available 
are BASIC, Pascal, Pilot, and LOGO. 
Almost the only software available is 
from Texas Instruments, and most of it 
is on cartridges. TI makes a speech syn- 
thesizer to allow the terminal to talk to 



you. While Texas Instruments is offer- 
ing good support for the product, 
almost no one else in the computer 
marketplace is making any software or 
hardware for this computer. 
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Terrific Opportunity 

for 

Microcomputer Programmers 

Atari 400/800 * TRS80 Color Computer 
Commodore 64 * VIC-20 * Apple II 

You are already writing programs in BASIC (and 
maybe even Assembly Language) on one of these 
systems. And, more importantly, you are looking for 
a chance to work on the others. 

You also possess excellent communications 
skills — verbal and written. 

If this describes you, then here's an oppottunity 
for you to learn and grow with one of the most 
prestigious microcomputer magazines in the world. 

MICRO Magazine offers an excellent working 
environment in brand-new offices located in 
Southern New Hampshire. A friendly atmosphere, a 
sound benefit package, a competitive salary, and all 
the "hands on" experience you want on a wide 
variety of systems. 

If this sounds like the opportunity you're looking 
for, send resume and salary requirements to: 

MICRO Magazine 

P.O. Box 6502 

Amherst, NH 03031 

(603) 889-4330 

An Equal Opportunity Employer 
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Ver. 2 For your APPLE II/II+ 

The complete professional software system, that meets 
ALL provisions of the FORTH-79 Standard (adopted Oct. 
1980). Compare the many advanced features of FORTH— 
79 with the FORTH you are now using, or plan to buy! 
FEATURES OURS OTHERS 



79-Standard system gives source portability. YES 

Professionally written tutorial & user manual 200 PG. 

Screen editor with user-definable controls. YES 

Macro-assembler with local labels. YES 

Virtual memory. YES 

Both 13 & 16-sector format. YES 

Multiple disk drives. YES 

Double-number Standard & String extensions. YES 

Upper/lower case keyboard input. YES 

LO-Res graphics. YES 

80 column display capability YES 

Z-80 CP/M Ver. 2..X & Northstar also available YES 

Affordable! $99.95 

Low cost enhancement option: 

Hi-Res turtle-graphics. YES 

Floating-point mathematics. YES 

Powerful package with own manual , 

50 functions in all, 

AM951 1 compatible. 

FORTH-79 V.2 (requires 48K & 1 disk drive) $ 99.95 
ENHANCEMENT PACKAGE FOR V.2 

Floating point & Hi-Res turtle-graphics $ 49.95 

COMBINATION PACKAGE $139 95 
(CA res. add 6% tax: COD accepted) 



MicroMotion 

12077 Wilshire Blvd. #.506 
LA., CA 90025 (213)821^340 
Specify APPLE. CP/M or Northstar 
Dealer inquiries invited. 
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PRINTHUTE 150 
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PrintMate ' 150 

THE MOST ADVANCED PRINTER IN ITS CLASS. 



Easy-to-use. Fast. Excellent print 
quality. 

These are the features every pc 
and microsystem user wants. 
These are the same features we 
build into every PrintMate 150. 
And there's one more thing... 
value. No other printer offers more 
versatility for the price. At $995, 
the wide-carriage PrintMate 1 50 
is an exceptional value. 

HIGH SYSTEM THRUPUT 

Print at 150 cps. Advanced logic- 
seeking Impact printing. Accelerat- 
ed print head slew rate. High- 
speed paper advance. 

PRINT CAPABILITIES 

10, 12, 15 or 17 characters per 
inch. High-density, high-speed 
correspondence printing, plus 
double-wide for emphasis. 

Softswitch " KEYPAD 

Establish, change or display the 



operating mode from the front 
of the printer. 

EXPANDABLE PRINT BUFFER 

Increase performance with buffers 
that take you from 2K to 68K to 
provide high-speed interieaved 
printing with computing. 

EASY WITH PAPER 

Three paper paths— front, back 
or bottom — make the PrintMate 
150 one very e^lsy-to-use 
machine. 

DOWNLINE LOADABLE FONTS 

Custom character sets may be 
downloaded to a PrintMate 150 
with a 4K or larger buffer. 

PRINT WITH STYLE 

No other printer offers more 
graphics support for the price. 
It's true. Our exclusive AP-PAK'^ 
available for most popular com- 
puters, lets you print in dozens of 
stylized fonts, in characters up to 



%" high. Cot a graph on the 
screen? Need a custom font or 
logo? Do it with an AP-PAK. 

OUR BOTTOM LINE 

Superior performance starts at 
$995 on a PrintMate 150. We 
wouldn't print that if we didn't 
mean it. Call or write us today. 
1-800-821-8848 



OEM'S: Ask us about custom 
AP-PAKs and low-cost private 
labeling. 

XBGHD 



Micro Peripherals, Inc. 

4426 South Century Drive 
Salt Uke City, UT 84107 
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Clock Interrupt 

for \bur 

Apple 



This hardware modification and interrupt-driver program 
allows use of 1/60-second interrupts on the Apple. 
The driver demonstrates how interrupts are serviced 

and implements a time- 



clock Interrupt 

requires: Apple II w/16K RAM 

A one wire modification 



of-day clock with a 
type-ahead buffer. 



by Charles Putney 



This is a poor man's interrupt addi- 
tion to the Apple that requires only 
one wire! I have seen a few clock inter- 
rupt designs but none as simple and 
easy as this one. 

The Apple has many periodic levels 

present on various points on the board. 

What if one of these was connected to 

the IRQ line of the 6502? There are four 

(Continued on page 38) 



The Apple II motherboard showing the locations of 
the pins where the jumper wire is to be continued. 
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counters (Dll, D12, D13, and D14) 
that generate the horizontal byte posi- 
tion and vertical line position on the 
screen. Adding interrupts is easy. Con- 
nect Pin 11 of D 11 to Pin 4 of H7/8 (the 
6502). The best method for doing this 
is to use 30-gauge wire-wrap wire. Lift 
each chip slightly to allow the wire to 
fit in the socket along with the pin 
from the chip and reseat the chips and 



the wire. This wire then can be routed 
neatly along the board. By doing the 
modification this way you can remove 
it at any time. 

The coimection provides 59.92 in- 
terrupts per second on my Apple but 
may vary slightly on your own. (A 
Euro-Apple has different counter con- 
nections and will not work with this 
jumper.) This may seem high but the 




NO POWER SPIKES 
Wrm SUPER FAN II. 



Super Fan IFs Zener Ray™ Transient 
Voltage Suppressor and Power 
Filter squelches spikes up to 6000 
amps — even those caused by 
lightning— while responding up to 
100 times faster than Apple II's 




built-in suppressor. 

In addition, Super Fan 11 cools 
your Apple, removing heat buildup 
at a remarkable 17 cubic feet of air 
per minute. Yet itV the quiL-leht 
fan of its kind on 
the market. 

Super Fan II 
also positions a 
lighted on/off 
computer switch 
and two accessory 

plugs at your fingertips. It's warranted 
for two years and simply clips to 
your Apple II, lie or monitor stand. 
See your R.H. Electronics dealer 
today about Super Fan II*, or contact 
us at 566 Irelan Street, Buellton 
CA 93427, (805) 688-2047. 

RHELECmONICS, INC. 
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Super Fan II. in black or tan: $109 
Without Zener Ray. $74 95. 
Additional atr How seals. S5. 
Available in 240V/ 50 Hz. 



Circle No. 29 



Dealer/OEM inquiries invited 
'U.S Patent #0268283 
#4383286 



France, call BIP. 1-255-4463 
Australia, call Imagineenng (02)212-1411 
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overhead in processing this many inter- 
rupt requests is only 2.9 percent. 

There are several possible applica- 
tions for a clock interrupt. The first is 
to keep track of time. The interrupt 
driver has an hours, minutes, and sec- 
onds counter that will maintain a run- 
ning count after initialization of the 
rect hours, minutes, and seconds. Un- 
fortunately, disks and other peripherals 
must inhibit interrupts so a few 
seconds are lost if disk usage is high. 
Without disk access this clock provides 
an exact method for determining 
keyboard response time. A second use 
is as a keyboard buffer to catch 
keystrokes during a rutming program; 
the interrupt driver also adds this func- 
tion. Other uses are as print spoolers 
and foreground/background tasking. 



Using the Inteirupt Handler 

Install the hardware modification as 
described and then enter the interrupt 
handler at $300. To enable interrupts 
from BASIC, CALL 768 (from monitor 
300G]. This toggles between interrupt 
enable and interrupt disable so the 
same CALL is used to disable inter- 
rupts. At the upper-right corner of the 
screen a space character will start 
blinking at the rate of once per second. 
This will tell you if interrupts are ac- 
tive or not. There are three counters 
that count hours, minutes, and seconds 
in 24-hour time. You can change this to 
12-hour format by setting location 
$34C (844 decimal) to $0C [12 
decimal). The other function of the in- 
terrupt handler is to buffer keyboard 
characters. From BASIC, enter a simple 
time consuming line such as 

FOR I = 1 TO 5000: NEXT I 

Enter a few characters while this is ex- 
ecuting. When execution is finished, 
all characters entered will be input as 
though they were retyped. This can be 
used as a type-ahead buffer to allow 
programs to continue execution while 
still collecting input. 



Program Description 

With interrupts enabled, each inter- 
rupt causes execution to resume at the 
address of $FFFE upon completion of 
the current instruction. This is a 
pointer to the monitor interrupt service 
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routine at $FA40 ($FA86 in old 
monitors). The routine checks for a 
break condition and then does a JMP 
(indirect) to $3FE, which is the user- 
interrupt routine. 

The first section of the interrupt 
handler installs the JMP vector in $3FE 
and then initializes the blinking 
character and buffer pointers. When an 
interrupt occurs, the registers must be 
saved. The accumulator is already 
saved in $45 by the break interrupt pro- 
cessing, so just the X and Y registers 
need to be saved. Since the lOSAVE 
routine in the monitor uses fixed loca- 
tions to save the registers, it cannot be 
used in an interrupt routine. If a pro- 
gram that called lOSAVE was inter- 
rupted, then this second use of the save 
area would clobber the original saved 
registers. If lOSAVE used stack pro- 
cessing instead of fixed locations for a 
register save area, then it would be 
ideal. Since the stack needs to be in- 
spected to determine the address of ex- 
ecution, I use fixed save locations. 

The method used to derive seconds 
from a non-integral number of inter- 
rupts per second is called differential 
addition. A 3-byte counter (called 
COUNT) is used to maintain a running 
total. During each interrupt, a 3-byte 
value is added to the counter. This 
number is 16,777,216(2^*) -divided by 
the number of interrupts per second. 
The carry is used as a once-per-second 
output. Since any extra remainder in 
the counter accumulates, this is an 
easy way to make integers count frac- 
tional values. A 24-bit counter 
represents an accuracy of 1.88 seconds 
per year. The drift of the master 
oscillator is then the limiting factor. 
The once-per-second output is added to 
the SECOND counter. Together with 
the MINUTE and HOUR counters, 
these count seconds, minutes, and 
hours. The three counters can be ini- 
tialized to the time of day and will con- 
tinue to keep time. When each second 
is counted, the upper-right screen loca- 
tion is set to a normal or inverse space^ 
which is a discrete reminder that inter- 
rupts are enabled. 

When a running program is not 
ready for data, the keyboard buffer 
subroutine accepts keystrokes and buf- 
fers them until required. To ac- 
complish this, the return address of the 
running program is checked to deter- 
mine whether or not it used the 
keyboard input routine. If it was in the 
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keyboard input routine and there are 
previous characters in the buffer, then 
the next character is sent. To send a 
character, it is loaded into the ac- 
cumulator, then the return address is 
modified to return to the end of the 
keyboard input routine, as though a 



monitor ROM, everything will work 
fine until RESET is pressed. To return 
from the monitor, normally you type 
3D0G. This will no longer work 
because 'C resets the processor status 
register to the status saved during the 
break. The easiest solution to this 



There are three counters that count hours, minutes, 
and seconds in 24-hour time...The three counters can 
be initialized to the time of day and wiil continue to 
Iceep time. 



character was entered from the 
keyboard. If the running program was 
not in the keyboard input routine, then 
any keystrokes are buffered. The buffer 
used is the normal keyboard input buf- 
fer ($200 - $2FF) but the interrupt 
handler uses the buffer from $2FF 
downwards while the keyboard input 
routine uses from $200 upward. This 
limits the number of characters that 
can be saved, but I have never had an 
overflow. Since the pulse used to create 
the interrupt is long, reentry of the in- 
terrupt routine would occur normally. 
A delay is added to the end of the 
routine to prevent this from happening 
and, although the interrupt routine is 
slowed down, usually it will not be 
noticed. The delay can be tested for the 
correct value by temporarily putting a 
IDA $C030 (AD 30 CO) at location 
$323, which will toggle the speaker 
without changing the timing each time 
the interrupt code is executed. Next 
change the delay to a lower value. If the 
sound changes as you type characters 
then the routine is being reentered. 



Side Effects 

One disturbing side effect occurs 
with programs that use the keyboard 
strobe ($C010) to check for a keypress. 
Since the interrupt handler clears the 
strobe for the next keystroke, the pro- 
gram usually will miss any keystrokes. 
One solution to this problem is to 
check BUFIN and BUFOUT. If they are 
unequal, a key has been pressed. 

The second side effect involves the 
permanent connection of the clock in- 
terrupt when the interrupt handler is 
not loaded. On a machine with the old 
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problem is to type '48:4 N 3D0G 
RETURN', which sets the processor 
status interrupt disable 'on' so that 'C 
will work. With the new monitor 
ROM, reset will operate normally. If 
you enter monitor you can use the 
same trick to exit. 

Correcting the Clock 

The Clock Calibrator program can 
be used to determine the correct entries 
for the interrupt timer counters. RUN 
the program with the Interrupt Handler 
installed and enabled, enter the correct 
time, and about 10 minutes later enter 
the correct time again. The program 
will calculate the correct settings for 
the counter and install them. For a 
more accurate clock, the interval be- 
tween entries should be longer (over- 
night?); the day counter is included for 
this reason (day = is defined as the 
same day). The clock shown on the 
display used for the Calibrator will stop 
updating when you begin an entry, but 
this will not affect accuracy. When the 
clock is accurate enough for you, don't 
forget to BSAVE the Interrupt Handler 
with the new counter values. 

All you need now is a piece of wire! 



Charles Putney received a BSME from 
Carnegie-Mellon University in 1973. 
Currently he is an engineer with 
Dataproducts Ltd, in Dublin and 
treasurer of the Dublin Apple Users 
Group. He may be contacted at 18 
Quinns Road, Shankill, County Dublin, 
Ireland. 
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nterrupt Listing 




The listing for tliis article was generatec 












by the new ORCA/M assembler from 






KEEP 


The name of the binary file generated 


Hayden Software. The assembler includes s 






GEQU 


A global equate necessary for zero-page 


screen-oriented text editor and several 








variables 


excellent features such as macros. 






START 


The beginning of a subroutine module 


conditional assembly, upper/lowercase, and 




1 


The high byte of a 16-bit number 


a large subroutine library. The system Is 






DSx 


Define storage space of x bytes, initialized 


designed to have programs written in 








toO 


modules (subroutines) and has a link editor 






DCI- ■ 


Define character of type T, enclosed In 


to link the modules together during 








single quotes 


assembly for a run-time package. Due to 








Types of letters (1) allowed: 


constraints imposed by our publishing 








A 


Addresb 


programs for everyone to type into their 








B 


Boolean 


own assembler, many of the more 








C 


Character constant 


sophisticated procedures will not appear in 








D 


Double precision FP 


print. (For additional information, see the 








F 


FP number 


June Operating System Data Sheet.) 








H 


Hexadecimal number 


There are a few points in the listing that 








1 


Two-byte integer 
Four-byte integer 


might need clarification. Here is a list of 








J 


differences among some of the standard 








R 


One-byte integer 


assemblers. Those of you who use the 










monitor to enter programs will notice no 












difference. 
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Apple Interrupt Listing 












00^8 


0300 A9U 


INST 


LDA #INT GET ROUTINE ADDRESS LOW 




00^9 


0302 8DFE03 




STA INTVEC SET UP VECTOR 


KEEP INTHAJJD.OBJ 


0050 


0305 A903 




LDA /INT GET ROUTINE ADDRESS HIGH 


« INTERRUPT HANDLER 


0051 


0307 8DFF03 




STA INTVEC+1 SET VECTOR 


» WITH HOURS MINUTES SECONDS COUNTER 


0052 


030A ADBE03 




LDA BUFIN MAKE BUFFER POINTERS EQUAL 


♦ BLINKING CURSOR ONCE PER SECOND 


0053 


030D 8DBF03 




STA BUFOUT 


« KEYBOARD BUFFER 


005'4 


0310 AD1803 




LDA LO GET ENABLE/DISABLE COMMAND 


# 


0055 


0313 -1920 




FOR #ENABLE MAKE INTO DISABLE/ENABLE COMMAND 


♦ CHARLES H. PUTNEY 


0056 


0315 8D1803 




STA LO PUT IT BACK 


# 


0057 


0318 78 


LO 


SEI ENABLEA>ISABLE COMMAND 


♦ Copyright (C) 1983 


0058 


0319 60 




RTS 


« by MICRO Ink 






» 




» P.O.Box 6502 






* 




« Ajnherst, MA 03031 






* 




* 






* 


INTERRUPT HANDLER 


» PAGE ZERO ADDRESSES AND CONSTANTS 






* 




# 


0067 


03U 8EC003 


INT 


SIX XREG SAVE X (ACC ALREADY SAVED IN $.45) 


BUFINX GEQU $3'4 KEYBOARD BUFFER INDEX 


0068 


031D 8CC103 




STY YREG SAVE Y 


ACC GEQU $^5 TEMPORARY STORAGE FOR ACCUMULATOR 


0069 


0320 18 




CLC 


« 


0070 


0321 A202 




LDX #2 INITIALIZE INDEX 


STACK EQU $100 STACK PAGE 


0Ci71 


0323 BDC503 


LI 


LDA COUNT, X GET COUNT FOR THREE BYTE ADD 


KEYBUF EQU $200 KEYBOARD INPUT BUFFER 


0072 


0326 7DC203 




ADC INTSEC.X ADD TO INTSEC THREE BYTES 


INTVEC EQU $3FE INTERKUPT VECTOR LOCATION 


0073 


0329 9DC503 




STA COUNT, X STORE RESULT BACK IN COUNT 3 


SCREEN EQU $^27 UPPER RIGHT CORNER SCREEN LOCATION 








BYTES 


KEYED EQU $C000 KEYBOARD INPUT 


007^ 


032C CA 




DEX NEXT COUNT BYTE 


KEYSTB EQU $C010 KEYBOARD INPUT STROBE 


0075 


032D lOFi 




BPL LI NO 


KEYIN EQU $FD1B KEYBOARD INPUT 


0076 


032F 9032 




BCC L3 NOT ONE SECOND YET? 


» 


0077 


0331 A93C 




LDA #60 GET 60 FOR COMPARE 


ENABLE GEQU $20 INTERKUPT MASK FOR PROC STATUS REG 


0078 


0333 EEC803 




INC SECOND BUMP SECONDS 


DELAY GEQU $39 DELAY TO MISS LONG INTERKUPT PULSES 


0079 


0336 CDC803 




CMP SECOND IS IS 60? 


INVHS GEQU $80 INVERSE CHARACTER MASK 


0080 


0339 DOID 




BNE L2 NO 


SPACE GEQU $A0 SPACE 


0081 


033B A200 




LDX #0 GET A ZERO 


* 


0082 


033D 8EC803 




STX SECOND INITIALIZE SECONDS 


* 


0083 


O3'40 EEC903 




INC MINUTE BUMP MINUTES 


* 


008^ 


03-13 CDC903 




CMP MINUTE IS IT 60? 


START 


0085 


03^ DOlO 




BNE L2 NO 


ORG $300 


0086 


03-48 8EC903 




STX MINUTE INITIALIZE MINUTES 


# 


0087 


03'4b A918 




LDA If2i GET 2i FOR COMPARE 


* 


0088 


03-40 EECA03 




INC HOUR BUMP HOURS 


« INSTALL INTERKUPT VECTOR 


0089 


0350 CDCA03 




CMP HOUR IS IT 2.4? 


« AND ENABLE/DISABLE INTERRUPTS 


0090 


0353 D003 




BNE L2 NO 


« 


0091 


0355 8ECA03 




STX HOUR INITIALIZE HOURS 




0092 


0358 ADBD03 


L2 


LDA BLINK GET BLINKING CHARACTER 


(Continued) 


0093 


035B ^980 




FOR #INVRS INVERT IT (Continued) 



40 
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Apple Interrupt (continued) 



oog-i 


035D 8DBD03 


STA 


BLINK 


SAVE FOR LATER 


0095 


0360 8D2704 


STA 


SCREEN 


SHOW THAT INTERRUPTS ARE ON 


0096 


0363 BA L3 


TSX 




GET STACK POINTER 


0097 


0364 E8 


INX 




SKIP OVER PROCESSOR STATUS 


0098 


0365 E8 


INX 






0099 


0366 BCQOOl 


LDY 


STACK, X 


GET PC LOW 


0100 


0369 E8 


INX 






0101 


036A BDOOOl 


LDA 


STACK, X 


GET PC HIGH 


0102 


036D C9FD 


CMP 


/KEYIN 


WAS IT IN KEYIN HIGH? 


0103 


036F D02A 


BNE 


L5 


NO 


0104 


0371 COIB 


CPY 


#KEYIN 


CHECK KEYIN LOW 


0105 


0373 9026 


BCC 


L5 


NO - TOO LOW 


0106 


0375 C025 


CPY 


#KEYIN+10 CHECK KEYIN ROUTINE END 


0107 


0377 B022 


BCS 


L5 


NO - TOO HIGH 


0108 


0379 ACBF03 


LDY 


BUFOUT 


GET BUFFER OUT POINTER 


0109 


0370 CCBE03 


CPY 


BUFIN 


ANY CHARACTERS IN BUFFER? 


0110 


037F DOOA 


BNE 


L4 


YES - SEND ONE 


0111 


0381 A9FF 


LDA 


#$FF 


RESET BUFFER POINTERS 


0112 


0383 8DBE03 


STA 


BUFIN 




0113 


0386 8DBF03 


STA 


BUFOUT 




0114 


0389 D024 


BNE 


L6 


RELATIVE JUMP TO RESTORE REGS 


0115 


038B B90002 L4 


LDA 


KEYBUF,Y 


GET CHARACTER 


0116 


038E 8545 


STA 


ACC 


PUT IN ACC ON EXIT 


0117 


0390 CEBF03 


DEC 


BUFOUT 


GET READY FOR NEXT CHARACTER 


0118 


0393 CA 


DEX 




NOW POINTS AT PC LOW 


0119 


0394 A92E 


LDA 


#KEYIN+19 SET RETURN ADDRESS TO END OF 










KEYIN 


0120 


0396 9D0001 


STA 


STACK, X 


PUT IN STACK FOR PC LOW 


0121 


0399 D014 


BNE 


L6 


RELATIVE JUMP TO RESTORE REGS 


0122 


039B 2C0OCO L5 


BIT 


KEYED 


KEY PRESSED? 


0123 


039E lOOF 


BPL 


L6 


NO 


0124 


03A0 ADOOCQ 


LDA 


KEYBD 


GET KEYBOARD CHARACTER 


0125 


03A3 8D10C0 


STA 


KEYSTB 


CLEAR KEYBOARD STROBE 


0126 


03A6 ACBE03 


LDY 


BUFIN 


GET BUFFER INPUT POINTER 


0127 


03A9 990002 


STA 


KEYBUF,Y 


SAVE THE KEY 


0128 


03AC CEBE03 


DEC 


BUFIN 


READY FOR NEXT TIME 


0129 


03AF A239 L6 


LDX 


#DEUY 


DELAY INSERTED TO AVOID RE-INTI 


0130 


03B1 CA L7 


DEX 






0131 


03B2 DOFD 


BNE 


L7 


NOT ZERO YET? 


0132 


03B4 ACC103 


LDY 


YREG 


RESTORE Y 


0133 


03B7 AEC003 


LDX 


XREG 


RESTORE X 


0134 


03BA A545 


LDA 


ACC 


RESTORE ACC 


0135 


03BC 40 

*_ 


RTI 




EXIT FROM INTERRUPT Si RTS FROM 
KEYIN 



INTERRUPT HANDLER VARIABLES 



0145 


03BD AO 


BLINK DC 


IK 'SPACE 


0146 


03BE 00 


BUFIN DS 




0147 


03BF 00 


BUFOUT DS 




0148 


03C0 00 


XREG DS 




0149 


03C1 00 


YREG DS 




0150 


0302 0445A9 


INTSEC DC 


H'0445A9' 



BLINKING CHARACTER 
BUFFER INPUT POINTER 
BUFFER OUTPUT POINTER 
X REGISTER SAVE AREA 
Y REGISTER SAVE AREA 
(256)/(INTEHRUPTS 
PER SECOND) 



(Continued) 



Apple interrupt (continued) 

0151 03C5 000000 COUNT DS 



0152 
0153 
0154 
0155 



0308 00 
03C9 00 
03CA 00 
03CB 



1^0 
120 
130 
140 
150 
160 
170 
175 
180 
185 
190 



REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

TEXT: HOME 
200 D0 = 
210 VTAB 5 



SECOND DS 1 
MINUTE DS 1 
HOUR DS 1 
ZZSIZE EQU • 
END 
Clock Calibrator 



-INST+1 



INTERRUPT TIMER 
(THREE BYTES) 
SECONDS COUNTER 
MINUTES COUNTER 
HOURS COUNTER 
PROGRAM LENGTH: 



Charles H. Putney 
18 Quinns Road 
Shankill 
Go. Dublin Ireland 

Copyright (C) 1983 

by MICRO Ink 

P.O.Box 6502 Amherst, NH 03031 



HTAB 6: INPUT "ENTER TIME 



220 

230 
240 
250 
260 



;H0,M0,S0 
POKE 969, M0: POKE 968, S0: 
POKE 966,0: POKE 967,0 



HH,MM,SS ";H 

POKE 970, H0: 
POKE 965,0: 

HOME 

I = PEEK (964) + 256 » PEEK (963) + 65536 » PEEK (962) 
F = 256 t 3 / I 

VTAB 5: HTAB 10: PRINT "FREQUENCY = ";F 
270 HC = PEEK (970) 
280 MC = PEEK (969) 
290 SC = PEEK (968) 
300 IF HC = 23 THEN Q = 1 

310 IF Q = 1 AND HC = THEN DC = DC + 1:Q = 
320 VTAB 15: HTAB 13 
330 IF HC < 10 THEN PRINT "0"; 
340 PRINT HC;":"; 
350 IF MC < 10 THEN PRINT "0"; 
360 PRINT MC;":"; 
370 IF SC < 10 THEN PRINT "0"; 
380 PRINT SC; 
390 VTAB 20: HTAB 6: PRINT 

"ENTER CORRECT TIME DD,HH,MM,SS "; 
400 IF PEEK (958) = PEEK (959) THEN 270 
410 INPUT D,H,H,S 
420 HC = PEEK (970) :MC = 
430 EC = DC » 86400 + HC 



PEEK (969) :SC = PEEK (968) 
» 3600 + MC » 60 + S - D0 
- M0 » 60 - S0 
3600 + M»60 + S-D0» 
M0 » 60 - S0 



» 86400 - H0 » 3600 
440 ER = D » 86400 + H » 

86400 - H0 » 3600 - 
450 I = I » ER / EC 
460 POKE 962,1 / 65536 
470 IL = ((I / 65536) - 
480 POKE 963, IL / 256 
490 POKE 964, IL - 256 » INT (IL / 256) 
500 POKE 965,0: POKE 966,0: POKE 967,0 
510 H0 ^ H:M0 = H:S0 = S 
520 GOTO 220 



INT (I / 65536)) » 65536 



ilVICftO 



ATTtNTION ri^<uuK/\/vi/viiiK3! 

At last> Microscreens. a screen generator package lets you 
produce clear, uncluttered, professional quality monitor screen 
formats . for only $1 1 9 00. Just a few lines of code in your BASIC is 
all it takes Develop selection menus, data-entry, inquiry dispkiy 
and more quickly and easily because Microscreens. 



•pKJVli"""'"(itIi/'jtl'.fl lOitrsK*,-!! 

nnonffcf -" ' < "in •.*> »'>. tefs r» t ■ n^; .r*.- « i 
any iT»fil'' 

picigtc" !'«■^ '.'< ff'Tc ir,, .rrtx. I'.'rrxst 
anatiy X. m—i 

variabt ^jjh Scvji 

• pnDV*''. ■*. .■.!<: ■ -f II [*.f V .tT ■t"^ll^ 
scieeT' :!».::..! x:':.»:oi. :»-yrj 

• prov* > '. ' fi!" ■• i"" I" Hi " • ■ ' •.« -'« ' .* >■ « 
fecrtuR .yt*- A*»- 7.':»jt- t .•<! 
monitc* 

• lets you postiKxi irie cuisor ur irie iXQ«\- 



'iiriij or cry drjl'i inf.xjt fieU 

• H!>*i-6 SIX L*tft<e?r 1 1=« I v-" I'xxie, m 
'..^[ . •^ingmc'r slop -■/ CIA ofriM 

ri: I k-jRT mi csjn ^Niconcn ■:* r* *it 

• ojn te irx '.iJii J in i.K K* EWNC 
rc'ifjiled f»cQrars or Mf '^'iP,-: aiH- '»>• 
ViCK»:'5.'H rvv^r rt(iii.*en f U /■Ytt i! 
wi:t-S-«C!a'J 

• ? if f rt-r CIV k.* '■* iftvi -x» c' 'I y '• * I'iries 
*noiC.t\ •'55 ItOfi vtu cv/r co>; in 

iT ■ 1 ■!■■< '■ t^-^ .Hlfpul 

• • ": .i«i^iMii.ir fk-TiL'iht', v:vj*,, >r»"-ir:Mr 
[.■-.«!iiC'.-£ V'.u [jf.yR:rnr:i>u i''»; o-- ■■ .x ■ 
ui 4u*>. uiVut-i< NiOvV i i i •» uO 

Circle N». 30 



Please send my Mteioscreens program 
so t can begin k> get quck and easy 
pvofasskinal quolily monitor screens. 
OnV$119a). 

Nome 



Oty. Slate. Zip 
Phone 



WCMSfi, _. 

Ciicle one 
CflASC Compler 
CB80 Compter 
BcBic-80 Ctmpter 



Exi; dulfi .- 

MBASK: Compiler 
MBASIC lnteipi?ler 
Apple Cr M 
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INTERFACING 



THE ATARI 



JOYSTICK 




How:to:l]$e.yOAjr 






Cpmpuicfr::] 




jby John Steiner 



While playing Ghost Gobbler on 
the Color Computer, I was 
frustrated by the lack of positive action 
on the joystick. An analog joystick usu- 
ally is sufficient for operation, but there 
are times when a positive-switch closure 
is better. This article shows you how to 
interface the popular Atari joystick to the 
TRS-80C. Also included is an applica- 
tions program that demonstrates the dif- 
ferences between the two joysticks. 

The Color Computer has an in- 
teresting joystick interface, and the 
analog joystick port is an excellent 
feature of CC. With a minimal invest- 
ment, you can have the best of both 



worlds by following the modification 
procedure and changing a few program- 
ming techniques. Many programs writ- 
ten in BASIC can be modified easily to 
use the switch joystick. 



How the Joystick Works 

First take a look at the Radio Shack 
joystick interface (see schematic in 
figure 1). There are two potentio- 
meters,- they are labeled X for horizon- 
tal movement, and Y for vertical move- 
ment. The high sides of the pots are 
connected to -i- 5 volts, and the low 



f-i 



Atari Joystick ":*' ^^;'7: 
requires: -- -- >•-. JJ>7y^ ■*• ' -''- ^ 

■ TR&80C '. '■''::r4ir.^i •■ -^-T--^^^'^'^" 

"" Atari "Joysticlts .- -"J 



• kgyjne hEtrdyitare . \ ^,: . 



it 



Ftfiute 2: Block diagram loysticfc circuitry 

' i . • 

. ■, tEff ■ ) 



t - 



fljr,hT 



-\ 



■Jf ■/'*.'-->■ 



- T 



Figure 1: Radio Shack Joystick 
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sides are connected to ground. The con- 
trol wipers are connected to the joy- 
stick inputs inside the computer and the 
fire button is a normally open switch 
that connects to ground when pressed. 

Look at the joystick schematic. You 
can change the voltage at pin 1 from ap- 
proximately zero volts to -i- 5 volts by 
moving the joystick from left to right. 
Similarly, pin 2 will vary between zero 
volts and -i- 5 volts if you move the 
joystick from up to down. 

Figure 2 is a block diagram of the in- 
ternal joystick interface. The joysticks 
are connected to an electronic switch. 
When the joysticks are read, the correct 
input is selected from the switch and 
sent to a comparator. (More on this 
later.) To read the joystick, a machine- 
language subroutine is called. Here is 
how it works: the switch is connected 
to either pin 1 or 2, left or right, depen- 
ding on the reading specified in the pro- 
gram. A peripheral interface adapter 
(PIA) inside the computer sends data to 
a digital-to-analog convertor [DAC|. To 
understand more clearly, you could 
start by storing a zero in the PIA. A zero 
into the DAC outputs approximately 
zero volts to the comparator. The func- 
tion of the comparator is to put out a 
zero as long as the voltage at the minus 
input is lower than the voltage at the 
plus input. Increase the PIA number by 
one, which increases the output 
voltage of the DAC, then check to see if 
the output of the comparator is a logic 
one. If not, increase the PIA by one 
again. There are 64 discrete voltages 
available from the DAC; when the 
comparator output is finally one, the 
voltage will be within 5/64ths of the 
joystick output voltage. 

The above method works, but it is 
not linear in speed. For example, lower 
voltage outputs could be found much 
faster than higher voltages. Indeed, if 
the joystick is all the way down, or all 
the way right, 64 readings would have 
to be made. Radio Shack decided to use 
an iterative, or binary, search. The 
joystick routine needs only six samples 
to identify any of the 64 possible 
joystick values. The routine does this 
by starting at 32 and either dividing the 
number in half or dividing in half and 
adding to the original number, depen- 
ding on the output of the comparator. 
Check a programming manual for more 
on iterative search routines. Once the 
value is found (always between and 
63, inclusive), it is stored in a variable 
by BASIC. 
No. 62 -July 1983 



Figure 3: Atari Joysltefc. - 
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How to Use the Joystick in a 
BASIC Program 

Color BASIC has a special JOYSTK 
command that reads the output of the 
desired joystick. Its syntax is A = 
JOYSTK(X). The variable A can be any 
numeric variable normally allowed. 
When the command is complete, A will 
contain the value read at the joystick 
port. The variable X can be 0, 1, 2, or 3 
only. X defines the joystick parameter 
being accessed: JOYSTK (0) is the right 
X or horizontal reading, (I) is the Y or 
vertical reading, (2) is the left joystick 
X, and (3) is the left joystick Y. There is 
one constraint when using the joystick 
command: you must always read JOY- 
STK(O) before reading any other joy- 
stick value, whether or not you plan to 
use the value. For example, if you wish 
to read the vertical value of the left 
joystick only, do the following: 

10A=JOYSTK(0) 
20 A=J0YSTK(3) 

variable A will finally contain the value 
of fOYSTK(3) and can be used as 
required. 

Since the joystick is an analog in- 
put, you can use almost any device as a 
joystick input. A thermistor could turn 
the computer into a thermometer, or a 
photo detector could become a simple 
light pen. See William Biirden's "Color 
Computer from A to D," BYTE, De- 
cember 1981, for further applications 
using the joystick ports and a descrip- 
tion of the circuitry and JOYSTK 
routines. Spectrum Projects offers a 
light pen that uses the joystick input. 

The Need for a Switch Joystick 

Although the analog joystick port is 
an excellent feature, sometimes the 

MICRO 



large range of numbers available and 
the amount of play in the stick itself 
make directing the stick difficult. The 
listing included is a case in point (the 
program is an exercise in using the port 
in a BASIC program). Enter the pro- 
gram and run it. If you use the standard 
joystick, you will see what I mean — it 
is difficult to start the gunner at the 
bottom and when he begins to move he 
is hard to stop, or he moves in the other 
direction. 

The joystick calculations are 
handled in lines 280 to 320, variable PP 
is a PRINT @ position, and the joystick 
values modify the position, one posi- 
tion at a time. The program needs to 
know only whether the joystick is left 
of center or right of center. Lines 290 
and 300 check the position. The sen- 
sitivity to the joystick can be varied by 
changing numbers 52 and 12. 

There are other methods of using 
the joystick to indicate position. One 
way to set the position of the gunner is 
to read the joystick and divide its value 
by 2. This will give you a range of to 
3 1 . The position of the gunner can then 
be set directly, as there are 32 PRINT @ 
positions on the guimer line. This 
technique is difficult to use, however. 
Slight movements of the joystick result 
in large movements of the gunner. 

Hooking Up and Using the Atari 
Joystick 

The alternative to a linear joystick 
is a digital or switch joystick as found 

(Text continued on page 47) 
(Moie figures and listings page 46) 



Figure 4: Atari Joystick wired for 
Color Computer. 
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Revised edition now available! All new text added to the original atlas and gazetter... 

"What's Where in the Apple" 

A Complete Guide to the Apple Computer 




This revised edition of the famous Apple 
Atlas will: 

• provide you with more informa- 
tion on the Apple's memory 
than is available elsewhere 

• guide you with a numerical 
Atlas and an alphabetical 
Gazette — to over 2000 
memory locations of PEEKs, 
POKES and CALLs 



Get the most out of your Apple with the 
"MICRO on the APPLE" series... 

This series of books for the APPLE computer is the 
best source of Apple specific programming aids, 
utilities, enhancements, games and much more. 
MICRO has taken the best APPLE material ever 
published in MICRO magazine and brought it 
together in this three volume series. 




Volume 1 allows you to — 

Round and format numbers accurately, get 
lower-case letters and punctuation into 
Applesoft strings or play the hit game 
"Spelunker" 

Volume 2 lets you — 

Speed up machine-language programming 
using five powerful machine-language 
aids, add additional editing and I/O 
features, or play the intriguing game 
"GalactiCube" 

Volume 3 gives you more — 

Machine-language aids, I/O 
enhancements, graphics and games 

Each volume comes complete with diskette to save 
you the time of typing hundreds of lines of code. 

If you use an APPLE computer you should own 
these books. 
Retail price $24.95 



• give you names and locations of 
various Monitor, DOS, Integer 
BASIC and Applesoft routines 
and tells you what they're used 
for 

• enable you to move easily bet- 
ween BASIC and machine 
language 

• guide you through the inner 
workings and hidden 
mechanisms of the Apple 

The Atlas and the All New Guide are now 
available in one 256-page Wire-O-Bound book for 
only $24.95. 

All Apple users will find this book helpful in 
understanding their machine and essential lor 
mastering it. 
Retail price $24.95 

If you own the original 
What's Where in the Apple 

purchase The Guide to com- 
plete your edition. This 
128-page Wire-O-Bound ver- 
sion contains all the new 
material to be used with the 
memory map and atlas. 

Don't miss this opportunity 
to complete your edition of 
What's Where in the Apple. 

Order your copy of The Guide now, 

Retail price $9.95 



FOR EASY ORDERING 

CALL TOLL FREE 

1-800-345-8112 

(IN PA 1-800-662-2444) 
MasterCard and VISA Accepted 



AND now the "MICRO on the APPLE" 
series is available as a boxed set. 

AH three volumes are pack- 
aged in an attractive box with 
the 110 programs on one disk- 
ette (double-sided). 

The set is available at a 20% 
savings off the individual price 
Retail price $5o o^ 





-^-^g:^\ Order your copy of 
' ' .i f) \ the Best of Micro 

If you're looking for excellent 




software at a very low price 
these two books are for you! 

Volume 1 — SOLD OUT! 

Volume 2 contains 55 articles and programs that 
appeared in MICRO magazine from October 1978 
through May 1979. These programs are for the 
Apple, AIM 65, KIM-I, PET, OSI, and SYM-1. This 
224-page book is paper bound 8V4 x II. 
Retail price $8.00 

Volume 3 contains 88 programs and articles from 
June 1979 through May 1980 issues of MICRO 
magazine. These programs are for use on Apple, 
AIM 65, KIM-1, PET, OSI, and SYM-I computers. 
This 320-page book is 8V4 x II and is paperbound. 
Retail price $10.00 



ATTENTION 
OSI USERS 




Micro has just released a new 

■ ok, "MICRO on the OSI." This 

• mprehensive book provides you 

.' ith methods to improve the use 

• r your Ohio Scientific Computer 

includes machine-language enhancements and BASIC aids. 
'i')u can learn how to TRACE BASIC programs, DEBUG 
II ichine language programs and improve your OS65-D 

• crating system. You'll also find: 

• Hardware modifications for enhanced/reversed video 

• Programs for control code and upper/lower-case entry 

I us... a What's Where in the OSI C1/C2 

This new book will also help you to improve your own 
I \SIC programs with PRINT AT, DELETE, AUTO-number 
I id FUNCTION INPUT. No OSI owner can afford to be 
•■ ithout this book. 

^ ou'U receive 25 piogiams in this 176 page book. 

' 'rder your copy today! 

I' ;tail price $19.95 



Learn how to master VIC BASIC programming with 
MICRO'S newest book... 

"Mastering Your VIC-20" 

Now you can do more with your VIC-20. This new book and 
the 8 projects and 20 programs that it contains can teach you 
how to master VIC BASIC programming. Each chapter concen- 
trates on a particular aspect of VIC BASIC. . .and each 
program is accompanied by discovery-oriented, 
tutorial text — clear directions that will quick] 
have you writing programs, modifying them and a(' 
ding features all on your own. And to help yo 
master your VIC-20 even faster, all 8 programs ai 
already keyed in on the accompanying cassette. 

Some of the programs you'll find in this book ar( 

• MICRO Calc — a minature spread sheet 
program that makes complex, repetitive 
calculations a breeze. 

• Master — a guessing game that teaches 
programming with random numbers and flags 

• VIC Clock — to teach you ON...GOSUB 
functions and character graphics. 

Each program is worth the price of the book itself. 
Order yoxu copy of "Mastering Your VIC-20" b 
using the order form below. 
Retail price $23.9 



Each program is worth 

the price of the book itself. 



SUBSCRIBE TO MICRO 

12 issues 

for just $24.00. 

$6.00 off 

the newsstand price! 




i 



ORDER NOW! 

Send me the following products... 




n Mastering Your VIC-20 (w/cassette) 


$23.95 


D MICRO on the OS! 


$19.95 


n Best of MICRO #2 


$ 8.00 


D Best of MICRO #3 


$10.00 


n Micro on the Apple, Vol. 1 


$24.95 


(w/diskette) 




D Micro on the Apple, Vol. 2 


$24.95 


(w/diskette) 




D Micro on the Apple, Vol. 3 


$24.95 


(w/diskette) 




n Micro on the Apple Boxed-Set 


$59.95 


(w/diskette) 




D What's Where In the Apple 


$24.95 


A Complete Guide to the Apple Computer 




n The Guide 


$ 9.95 


to What's Where in the Apple 





D Yes, I want to subscribe to IVIICRO 

D 1 year at $24.00 D 2 years at $42.00 

Canada $27, Europe $27 ($42 air mail) 

Mexico, Central America, Mideast, North and Central Africa $27 ($48 air) 

South America, Far East, South Africa, Australasia $27 ($72 air) 

Add $2.00 S & H for each book. 

Total Amount Enclosed $ 



I'm paying by n Check D MO D VISA D MasterCard 



Credit Card # . 
Expires 



Name 

Company. 
Address _ 
City 



. State . 



-Zip- 



Allow 6 to 8 weeks for delivery. 

I own a(n) D Apple D Atari D Commodore 

D TRS-80 D OSI D Other 



Mail to: MICRO P.O. Box 6502 Amherst, NH 03031 
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Figure 6 
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GREEN 



BROWN 

-BLACK 
. BLUE 



ORANGE 



J = JUMPER WIRE 



R = RESISTOR 



Listing 1 

1 'TARGET 

2 'JUNE 15, 1982 
5- lY MUM SIEtKEH 

4 'WRITTEN TO DIMONSIHATE THE ATARI 

JOYSTICK m THE TRS-813 C 
10 CIBIH 5S)^ 
28^ GCSHB 8'5«! 
38l' Ml? = "(aiUiG03;D;L8;Ci02;B;A;O3,- 

I2;0iU}ib;L8jCi02,-B;A;Q3;I2;G;L4iDrL8jG;02; 

BjO^jCjMiOajA" 
ii PIAY ''T4;XH1$;" 
51} M2$ = LEFT* (Ml*, 15) 
■fia M3$ ' "02;L4;G;G;03iE!il;EiU;E;EjF;L8; 

F;E;U;D;M;D;02jQ;Gi03;E>I,l;E;E4jE;G" 
7» II=a : IIJEH=« : K=0 : X=l : C0=134 : CL=137 
Si FOR I»l TO 32 : X* » X$ + 0HR$(128) i NEXT 
* PC${X>="" ,, ,, 
, use PRINT g 22*, "HOW GOOD ARE YOU?"; 
Ill3 PRfflT" INTEH 1 IF YOU ARE GOOD^ 4 IF YOU'RE NOT";' 
12^ A$=IifKBr¥ : IF A$ => "" THEN 120 
130 DI=VAE(A$) ; IF DI< OR Dr>4 

THEN ERIKr",.EHIER 1 TO 4 ONIY"; : GOTO lUB 
lAH DI=€>I»52 
.15# O1S{0) 
160 FOR J=i TO 63 






affi?(l5'5) + CHR$(128) 
IR$(CI.) + CHR$(128) 
;HR$(128) + CHR$(128) 
I + E$ : NEXT 



IB FS=254.THE»37^ 
iL SCORE ='-';SC; 



-.'6 



!R FS=254 
^E 240 



■ 28) 



-I " I . *i 



■ ,CHR$(128); : NEXT 
■■I,CHH$(128);,r SKXT 



4W = 



66er 

67* 

680 

. 69)J. 



■.- •.■■'."■ '■ IE IS";SC} 

IP T!l=2M THEN BP=SC»ie) 
IF DI=15lS THEJI BP=SC»25 
IF Dl^liSl* THEN BP=SC»50 
IF DI=50 THEN BP=SC»10a 
PRINT g 292, "BONDS POINT TOTAL iS'S'SP; 
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(Continued fiom page 43) 
on the Atari home computer and video 
games. The joystick has five switches, 
each of which close independently as 
the joystick is used. Figure 3 is a 
schematic of the Atari joystick cir- 
cuitry as it is wired originally. For our 
application, the actual pin numbers are 
not required and therefore are not 
listed. All the switches are connected 
to ground, unlike the TRS-80C joy- 
stick, which needs both a +5 volt and 
ground hook-up. 

Normally all inputs are high until a 
switch is closed. When a switch closes, 
a conesponding pin on the cable jack 
goes low and the software notes the 
changed state of the port. The switch 
joystick is not as versatile, but is useful 
when you are looking for digital 
changes. In my program, I need to 
know only whether the operator wants 
to go left, right, or stay where he is. 

If you wire the joystick as shown in 
figure 4, the joystick port receives only 
three values: the center position [no 
switch closed] returns a value of 32; a 
left command returns a zero,- and a 
right command returns a 63. You can 
do this by rewiring the joystick and ad- 
ding a voltage divider network to the X 
and Y switches accordingly. The modi- 
fication requires only four lOOK 
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resistors, a 5-pin DIN connector to fit 
the computer, and a joystick. Convert- 
ing one joystick costs about as much as 
one new Radio Shack joystick. 

Disassembling the stick is easy; just 
remove the four phillips screws from 
the bottom. Be careful when pulling 
the stick apart — there is a tiny spring 
on the fire button that could get lost 
easily. Figure 5 is a drawing of the 
printed circuit board inside the joy- 
stick. The switches are mounted 
directly on the circuit board and are 
only metal contacts soldered to the 
foils, which are identified in the 
diagram by lines drawn through circles. 
The fire button is in the upper left cor- 
ner, and north, east, west, and south 
are where they should be. A row of slots 
on the lower right of the board is used 
to connect the cables. 

The figure also has two Xs marked 
over foil traces. Using a razor blade, cut 
the foil at those points. You can double 
check it with an ohmmeter, if you have 
one. You will also have to slice through 
the plastic membrane covering the cir- 
cuit board. Cut about Va" of plastic 
away from either side of the break. This 
allows you to solder a couple of wires 
to the foil. (Figure 5 shows the location 
of the four resistors.) 

When you finish cutting the foil 
you are ready to begin wiring. Figure 6 
contains a diagram of the jumper wires 
that must be soldered to the board. The 
process is not difficult; I was able to 
complete the wiring in about an hour, 
which also included figuring out how 
to cut the board. I mounted all the 
resistors on the bottom side of the 
board and ran leads through the slots 
and large center hole. There are two 
jumper wires and four resistors to be in- 
stalled [see figure 6). 

When you finish installation, 
unplug the white wire from the circuit 
board and cut it off close to where the 
cable comes into the stick; it is no 
longer needed. Then unplug the green 
wire and cut off the cormector. Solder 
the wire to the foil at the same point as 
the two resistor leads, as shown in 
figure 6. All the other colors are left as 
originally found. Those colors are 
listed in the figure in case your joystick 
has a different color combination. 

Now you are ready to install the 
DIN plug. Cut off the Atari plug close 
to the plug end and strip the outer cable 
and iimer conductors. Cut off the white 
cable at the cable and connect the wires 
as follows: 
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Table 1 


Pin 


Color 


1 


brown 


2 


blue 


3 


green 


4 


orange 


5 


black 



Table 1 shows the pin numbering 
from the solder side of the connector. 
Connect the colors to the pin numbers 
as shown. When you are done, enter 
the program shown in listing 2 to check 
the operation of the new joystick. 

Listing 2 

10CLS 

20A = JOYSTK(0) 

30B = JOYSTK(1) 

40 PRINT @ 224, "HORIZ ="; 

A,"VERT =";B; 
50 GOTO 20 

Enter the program listing and install 
the joystick in the right joystick port. 
When you run listing 2, the two num- 
bers should be 32. Moving the joystick 
left changes HORIZ to 0, moving it 
right returns a 63. Moving the stick up 
changes VERT to 0, and moving it 
down changes it to 63. Changing the 
program to IOYSTK(2j and (3) in lines 
30 and 40 tests the left joystick port. 

Now get out a few of your joystick 
programs: some will show a noticeable 
improvement, other will not. Don't 
worry about causing damage if you 
miswire the connector — the port is 
protected with a current-limiting 
resistor. Even connecting the -H5-volt 
pin to ground is harmless, as there is 
only about 50 mA of current flowing. 

This modification is easy and well 
worth the effort. If you have trouble, 
send a self-addressed, stamped en- 
velope and I will answer any questions. 
The program listing is available by 
sending a blank cassette and enough 
postage for shipping. Now that you 
know how, get off the ' 'pot' ' and get on 
the "stick." 



John Steiner is an electronics instructor in 
the Fargo Public School System. He has a 
32K Color Computer with disk, and an 
Epson MX-80 printer. You may contact 
Mr. Steiner at 508 Fourth Ave., N.W., 
Riverside, ND 58078. 
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An Inexpensive Joysrick 

For rhE 
ApplE III 



by Phil DaLey 

CircuIt by Dan Weston 



Apple Joystick 

requires: 

Apple 11 

and hardware parts 



Construct your own joystick for the 
Apple II at a savings of over 50%. A 
wiring diagram is included. 



The only knowledge necessary for you to construct your 
own joystick is the use of a few simple tools and a 
soldering iron. In addition to the parts list below, you will 
need a piece of ribbon cable (six strands) or six pieces of 
wire. Separate wires are better if you plan to use the stick a 
lot; ribbon cable is likely to break internally under the 
strain of much flexing. 



Top light: Interior of assembled joystick. Bottom light: Completed 
joystick. Below: Circuit Diagram. 
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The first' step is to'-visftajora^lackt ■ :"'•', ^'v"-<'^V'v\f;'?!;^'.iK 
Radio Shack outlet and ,bu^ me follow- - 'r - ■ " ,' ■ ' *^ - 
ing parts: ' . ' ■. . " .■.''"■■.' 



1 lOOK Joystickjjqr;'; 

2 220 ohni resistors 
2 I'usb buttons 
1 Project case 



-271-i7'Cf5 



22pk ohm resStOTs; ^- ' HtS^^.^. "^ 5" Vi?/pr ' " " ._ '" ■'/ 
220 ohm resistors ' - .lit-Mli ' " '' "Vl'^inr"'^' i-'^."" 




Also you will need a 16-pin DIP 
header to plug into the game paddle 
socket. Unfortunately RS no longer 
stocks these parts, but most electronic 
parts stores should carry them. 

The first step is to drill two 3/8" 
holes for the buttons. Be sure to place 
them where they will be convenient for 
playing games that require both but- 
tons. Then drill, or cut, a larger 1" hole 
for the joystick. This hole will require 
four smaller holes, spaced evenly 
around the edge, for the mounting 
screws. The safest way to make sure 
they are in the proper location is to 
make a paper pattern to place on the 
box to mark the drilling spots. 

Next, fasten the joystick to the box 
with the four screws and each button to 
the box with the washer and nut sup- 
plied. Solder a wire from each of the 



connections marked '1' to the next 
connection marked ' 1' . The order is not 
important as long as they are all con- 
nected to each other. Solder one end of 
each of the 220K ohm resistors to the 
appropriate joystick connection (#8) 
and one end of each of the 220 ohm 
resistors to the #8 connection on each 
button. Solder all the free ends of the 
four resistors together in the center of 
the case. 

Cut a small channel in one end of 
the case for the ribbon cable or the 
separate wires to fit through when the 
case cover is in place. We used a razor- 
blade knife to remove enough of the 
plastic so that the cable wouldn't get 
crushed when the cover was tightened 
down. Solder four of the six wires to 
the proper location, #'s 2,3,6, and 10. 
The two remaining wires connect to 



locations previously soldered. One con- 
nects to the resistors connection in the 
center and the other connects to any 
one of the locations numbered ' 1' . 

Solder the other end of the wires to 
the proper location on the DIP header 
that has the numbers printed on it. The 
number 1 location is on the bottom 
right looking down from above. Run 
the cable through the channel, put the 
four cover screws back into the case, 
and you are all set to plug the header in- 
to the game paddle socket. 

We think that you will find games 
allowing use of a joystick instead of the 
keyboard A/Z and forward /backward 
arrow maneuvers will be a lot easier to 
control with this inexpensive joystick. 
Happy gaming! 

Many thanks to John Morse of 
Newton, MA, for help with the resistor 
values for the circuit. 



Dan Weston teaches a self-contained 
eighth grade in Brooks, Oregon. He may 
be contacted at 195 23rd NE, Salem, OR 
97301. Phil Daley is a Apple editor for 
MICRO magazine. 
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Basic Aid 

"An excellent program 
and fine utility." 
Rainbow Review -Aug. 82 
Single control key input of 
BASIC commands. S 34.95 

Spectrum Stick 

"More like arcade joysticks 
than anything we've yet 
encountered." 
Rainbow Review- Oct. 82 

Response and control put the joy 
back in color computing. $39.95 



Spectrum Paddle as 



Colorcom/E 

"Out of thousands of 
programs, 

this program... SUPER!" 
80US Review- Nov.82 

A smart communications package. 
Disk or Rompack $49.95 



CoCo/EAD 

Color Computer Editor, 
Assembler and Debugger 

$6.95 

For quicker sidetoside action 



scores. $19.95 



GALL NOW 
212-441-2807 
FOR FAST DELIVERY 
All orders plus $2 shipping 



SEND TO 
DEPT. C2 93-15 86TH DRIVE 
WOODHAVEN, N.Y. 11421 
NY residents add sales tax 



Circle No. 32 



COMPUTER 
ACCESSORIES 



ERRORS-DOWNTIME-SERVICE 

A speck of dust dirt, or nnagnetic oxide on the read/write head of your 
f toppy disk can cause data transfer errori a disk crash, or even a costiy 
disk drive failure. Regular use of Perfectdata head cleaning diskettes 
can keep your drive heads clean and your system up and running. The 
Perfectdata system can be used on single or dual-sided floppy disk 
drives. (Comes complete with 2 cleaning diskettes, o 4 oz. bottle of CS- 
85 cleaning solutksii, and full instructtans.) 

5.25" Disk Drive Cleaning Kit $22.75 
8" Disk Drive Cleaning Kit $22.75 

ORGANIZE AND PROTECT YOUR DISKETTES 

Organize your diskettes with an Innovative Concepts Flip '1^ File from 
Mercury Micro. Hotels up to 50 diskettes In a handsome smoke-cokxed 
transparent pkastic case. 

Cose for 5.25" Diskettes $23.75 
Case for 8" Diskettes $29.75 

WHATS YOUR FAVORIH NUMBER? 

New for spring. Top quality shirts with "64" or "20" printed in large 
numerals on both front arvd back. 50/50 blervd wll not thrink. Specify 
color and size and number ctioice. Avaikable in red or blue, 
S-M-L-XL 

$7,50 each 

ORDERING INFORMATION 

Phone (301) 994-1122 

SHIPPING 

Add $1 50 to all orders for shipping. We pay balance for UPS service on 
all orders. Add $2.00 for COD. Maryteind residents please add 
5% state sales tax 

WRITE OR CALL FOR FREE COfylPUTER ACCESSORY CATALOG: 

SURGE PROTECTORa DUST COVERS, BOOKS, DISK MAINTENANCE BLANK 

MEDIA AND MUCH MORE 

MeiGUiy MIcra Inc. 
D*pt F 

Chwty Held Road 
Mercury IMcro Droydon, Md 20630 Circle No. 33 
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PCT 
GOES 
ROM 



by Jerry D. Brinson 



Software and hardware are provided for a PET 2532 
EPROM PrQ^rammer. 



You have probably noticed some 
extensions to the PET operating 
system for sale. WORDPRO, TOOL- 
KIT, etc. are systems that use a portion 
of the 12K ROM memory block not 
used by the PET operating system. It 
would be nice to use some of that free 
area for your own machine-language 
programs or to store your favorite 
BASIC program in ROM. This article 
shows you how. 

First you must choose a good 
EPROM. Texas Instruments makes an 
EPROM that's pin-for-pin compatible 
with the three empty ROM sockets 



that lie underneath the hood of a 
16/32K PET. That EPROM is the 
TI-2532 and is matrixed 4K by 8 bits. 
You will need one TI-2532 for each 4K 
of ROM that you use. 

Next you must program the EPROM. 
The circuit in figure 1 and the program in 
listing 1 does the trick. It may not be fast 
but it's cheap and it works! 

All of the parts can be purchased at 
an electronics store. I used a 44/22-pin 
experimenter's board to lay out the cir- 
cuit mentioned. I used sockets for all 
the integrated circuits, although only 
the EPROM socket is necessary. This 
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should be a ZIP socket or some other 
type that allows quick and easy 
removal of the EPROM. 

Once the circuit board is finished, a 
harness to interface the 2532 program- 
mer to the PET must be made (see 
figure 2|. Note that both the user port 
and the IEEE-488 port are used. Cable 
length should not exceed 18 inches. 
When the circuit board and the inter- 
facing harness have been built, a check 
of all connections with an ohmmeter is 
suggested. 

Listing 1 must now be entered into 
the PET. Double check that what is in 
your PET's memory equals listing 1. 
You should save this program on 
tape/disk for future use. 

The program provides a menu to 
allow various functions to be called. 
Other than the PROGRAM function, 
the READ and COMPARE functions are 
used to check what you actually placed 
into the EPROM. The EXIT TO 
MONITOR and END functions are self 
explanatory. 

The 2532 Programmer has two areas 
of RAM that are reserved. The RAM 
area from 8192 ($2000) to 12287 
($2FFF) is reserved for the program that 
you wish to enter into EPROM. The 
RAM area 12288 ($3000) to 14335 
($3FFF) is reserved to store what is read 
from the EPROM. 

Prior to running the 2532 Program- 
mer in the PROGRAM mode you must, 
of course, have what you want to place 
into the EPROM in the 2532 program- 
ming area. For machine-language pro- 
grams this is rather easy. By using the 
PET monitor you are able to LOAD and 
SAVE programs to any spot in memory. 
For BASIC the process is somewhat dif- 
ferent. First I will discuss machine- 
language programs. 

The ROM area where the EPROM 
program will reside is located at 36864 
($9000) to 49151 ($BFFF). This is 
broken into three 4K blocks. 

Block 1: 36864 ($9000) to 40959 

($9FFF) 
Block 2: 40960 ($A000) to 45055 

($AFFF) 
Block 3: 45056 ($B000) to 49151 
($BFFF) 
The empty ROM sockets in the PET, 
located from left to right, are Block 3, 
Block 2, and Block 1. You can store up 
to a 12K continuous program in three 
4K blocks. 

The first requirement is to select 
the ROM area that you want to use. If 
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you own WORDPRO or TOOLKIT part 
of the decision has already been made 
for you, as these programs reside in 
Block 3. Assume, for example, that you 
have a 2K machine-language program 
and you want this program to reside in 
Block 1, from 36864 ($9000) to 38911 
($97FF). To work with the 2532 Pro- 
grammer the machine code should be 
loaded into RAM at location 8192 
($2000) to 10239 ($27FF). Note that 
although the program is loaded into the 
RAM location, the machine-code 
pointers, jumps^ etc. should be as if the 
program were located in ROM at the 
target address you have chosen. Any 
programs less than 4K will afford extra 
storage for other programs. You may 
stack programs; otherwise you should 
fill the remaining RAM programming 
area with ($FF) decimal 255. This will 
allow you to add future programs to the 
EPROM without erasing. 

Insert a TI-2532 into the proper 
socket on the programming board. 
Note: Three 9-volt transistor radio bat- 
teries are used to supply the necessary 
25-volt supply. Always disconnect the 
25-volt supply at the same time you 
disconnect the 5 -volt supply. Or 
disconnect the 25-volt supply prior to 
disconnecting the 5-volt supply; other- 
wise damage may result to the EPROM. 

Load the 2532 Programmer into the 
PET and RUN. The PET will tell you 
what steps to take. Select the READ 
function to check what was put in 
EPROM. When the READ function is 
finished, select the COMPARE func- 
tion. This will make a comparison be- 
tween what you intended to put into 
ROM and what actually got there. If 
everything goes well the COMPARE 
function will finish without an error 
message. 

Turn off the PET and insert the 
EPROM into the proper socket, noting 
correct polarity. Turn the PET back on 
and type SYS xxxx with xxxx equal in 
decimal to the entrance of your machine- 
language program. Your program should 
execute properly. Note that at the end of 
your routine a RTS should be included 
to return you to BASIC. 

Most BASIC programs will run in 
ROM unless they are self -modifying. 
The program in listing 2 will take a 
BASIC program and store a modified 
copy in the 2532 programming area. You 
should enter the program in listing 2, 
check and SAVE it, then RUN the pro- 
gram. It will make a copy of itself in the 
2532 programming area ready to be 
No. 62 - July 1983 



placed in ROM. This is necessary so 
that you may convert other programs 
using the Relocator from ROM. If you 
have greater than 16K memory, you 
may store the Relocator in upper RAM 
instead by calling a RAM address in- 
stead of a ROM address when asked 
during program execution. 

The Relocator will ask where you 
want the relocated program to reside. 
The ROM address will be the one you 
select; the RAM address will be within 
the 4K programming block of the 2532 
Programmer. For example, if you want 
to locate youi program in the top 2K of 
ROM 47104 ($B800) to 49151 ($BFFF|, 
when asked for ROM address enter 
47104; when asked for RAM address 
enter 10240. Since the ROM address is 
in the upper 2K of the block, the upper 
2K of the 2532 Programmer program- 
ming area must be used. 

After running the program the PET 
will display the area in ROM and RAM 
that the program will occupy. It will 
also indicate the starting point for the 
next program. Last but not least, it will 
indicate two pointer values — the 
BASIC START pointers, which reside 
in zero-page locations 40-41 ($28-$29). 
These are the values that you must 
POKE into the PET to call yovir ROM 
resident BASIC program. Write down 
these values for future reference. 

At this point you should have a 
copy of the Relocator ready to be placed 
in ROM. Use the same procedvure as 
described for the machine-language 
program to program the EPROM. When 
finished, instead of using a SYS com- 
mand you must call the BASIC program 
with POKE 40,xxx and POKE 41,xxx. 
The xxx's equal to what was written 
down previously. Type RUN and 



Figure 2 




RETURN. Your BASIC program will ex- 
ecute as if in RAM. To return to the nor- 
mal PET operation you must reset the 
pointers with POKE 40,1:POKE 41,4. 

Now, at a few keystrokes' notice, 
you have the TOOLKIT, SUPERMON, 
RABBIT, TAPE INDEX, and many 
other features available to enhance the 
operating system of your PET. 



Jerry D. Brinson is an Electronic Engineer 
employed at Hueco Manufacturing, Inc. 
During the last four years he has been 
active in progiamming in both BASIC and 
assembly language. You may contact Mr. 
Brinson at 10136 E. 96th St., Indianapolis, 
IN 46256. 
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L/sf/ng 1; 2S32 Programmw - 

IW PakE144.49PaKE594fi8iffi-PaiiE59459,25S PWE5S4i7.PEEH3MtT>iWnii? 

tie PaKE594£9.12 POKESI-SS PfllCESZ.S PRIHT'-H? 

120 IIRV>'594?? Ninf=?»l25 K<H>S845e HRFt=5?456 PP0G=594A3 MEn^El.'.- 

138 CB2-59467 (KEP=S94S9 »'Ifi::'i342e n,a'i?47l V*="aEPflCE"" i 3 U-1 H*= 

MB k-1 «=■" S*^"" 

ISe INPtlT"3«ERIW:iTE SHITCK SET TO READ V|nr..M 

l«e IF RS<>"V»THEN1SA 

1.'8 P0ICEPBO&,PFEK^PP0GJ0R^24 PCKEDHV.52 PP1.ENDPC ■ =.■* fOUEHFFI FFL^.^^i:FIl filfIl.'T 

188 POKE nXH.PEEKi.n»i)flNIt 251 PCVERGR.e 

190 PPINT"3 SFRQGtWt HEHUB" 

zee PRIHT»«> -fPOGREWa* 

^te PRIWIF -HERDS' 

220 PRINT" IE -aCOMPfiREB" 

230 PRINT" arP-arPRNSFEP PERB SRTffi' 

240 PRIHT"ffP-«rRFiMSFER PPOnRW EnrflS" 

258 PRINT "lEH- EXIT TO HONirOR" 

260 PRIHT'E -CNDT 

170 f»$='" S»="" INFUT-JtOtlMfiNJ " R* 

i28U IFq»="P"THm36e 

2pe IFftS-.-En-rHEHFOtElt^ 46 Si'SlHJ4 

30a lFfl«="R'THENSre 

■310 IF»="TB"THtN88a 

3Z0 IFP$="Tp-THfcN90e 

:30 rFft»="E'IHfci«l0 

348 tFfl«--"C"THEH320 

J50 Pf'INr"TTT' GOTO 270 , . ■ ,', . 
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Presents 

'^ryteQyter"' 

For the Commodore 64" 



The user affectionate sprite development 
program. Menu-driven, Mono/Multlcolorsprites, 
joystick/keyboard, Tape/Disk. 20K w/FAST 
macliine language routines. Over 60 com- 
mands: ROTATE (any angle 0-360), INVERT/ 
OBVERT, SHIFTS. SYMMETRY, AND/OR, 
REVERSE, REVIEW, MOVIE (animation). 
Create and Edit up to 128 sprites per file. 
For programming efficiency and FUN! 



PLUS 

Tk« Cane Maker 

Automatically prepares a base for game de- 
velopment-up to 32 sprites WITHOUT DATA 
STATEMENTS! Adds SPEED to your games. 
Saves memory too. 



To order. Send ctieck (U.S. Funds) $29.95 for 
Cassette, $34.95 for Disk. Dealer inquiries 
invited. 



P.O. Box 507 

Deer Park, Texas 77536 

(713)4,73-6723 

A Otvision ot Foxfire Systems. Inc. 
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NEW PROGRAMS! 

SCOUT- Full color, machine 
language, fast action and 
graphics! After a year of 
development, comes the all 
machine language SCOUT. 
Patrol the planet surface pro- 
tecting and saving the human 
population from abductors. 
Turn your OSI into a real ar- 
cade! 
$24.95 C4PMF, C8PDF. 

Send for our FREE catalog. 
We have what you want for 
less: S-FORTH $39, FULL 
SCREEN Ef TOR $19, 
ADVENTURE 4., 9, SKYHAWK 
$8, TOUCH TYPING $19, IN- 
TELLIGENT TERI^INAL $24, 
THE WIZARD'S CITY $12, 
UTILITIES, and much more for 
theCIPtotheCSPDF. 

(312)259-3150 
AURORA SOFTWARE 

^g 37 S. Mitchell 
Arlington Heights 
'^^^ Illinois 60005 

r-n. Circle No. 35 





List 1 (continued) 

368 INPUT":KEflD,-'WRITE SWITCH SET TO WRITE VIHI" ; flt ; IFh*<>"'i"'THEN360 

370 PRINT"n ♦»«!PR0(3RflMriING»i**" 

380 (30SUB 1000: PRINT" DflTfl FROM S1S2 TO 12287" :POKEPR0G-PEEK';PR0G:>0R224 ■U=l 

390 POKE USER. 255 

400 GOSUB 1 050 : FORT 1 =9T03 : F0RT2=@TO3 ■ FORT3=0TO255 

410 X=8192+T3+<:256*T2) + <1024»T1) ;J':i=PEEK(:X> :FOKEDKT..ia :RRINT"a<W«M:flTfl 

420 PRINT"anBIMDHTR ",Xl, 

430 PRINTTflBCieV MEMORV LOCflTION " :X: FOKERIiR-TS 

440 PRINT"»(W«WM«RDDRESS ■';T3." PRGE ".:T2.;" SEC ",T1 

450 ON (Tl + OGOSUB 610.620,630.640 

460 ON <:T2+1) GOSUB 570,580,590.600 

470 GETS*: IF S*=CHRt<:i3>THENST0P 

480 POKEPROG, CPEEKCPROGJflNDSl >0R192 : FORT=0TO25 :NE:>iTT FOKEFROG. FEEKt:PRCiG>CiR224 

490 FORT=0TO25 : NEXTT 

560 HEXTT3 : I F J=0THENGOSUB 1 050 

510 HEXTT2.T1 00X0650 

520 ON (T1+1)G0SUB 610,620.630.640 

530 ON (T2+1) GOSUB 570.580,590.600 

540 GOSUB780 

550 NEXTT3 : I F J=0THENGOSUB 1 050 

560 NEXTT2.T1:GOTO650 

570 POKEDflV, 52 : POKENDflC, 52 : RETURN 

580 POKEDflV, 60 RETURN 

590 POKEDfiV , 52 : POKENDfiC . 60 : RETURN 

600 POKEDflV. 60 RETURN 

610 GOSUB1080:POKE flXN, <PEEK<flXN)flND25i;. : RETURN 

620 GOSUB1070:POKE flXN. (PEEK <:ftXN)flND251 >: RETURN 

630 GOSUB 1080: POKE flXN, (PEEK^flXN^flND 25nOR4:RETURN 

640 GOSUB 1070: POKE flXN, (PEEKCflXN^flND 251 ^0R4:RETU(;:N 

650 L=L+1 : IFL=L00RW=9THENPRINT"W FINISHED" :GOSUE9.30 GOTO 140 

660 IFU=1THEN400 

670 W=0:IFJ=1THEN730 

680 INPUT"3?EflD/WRITE SWITCH SET TO READ VIMI" ;fl* : IFfl«0"V"THEN6Se 

690 POKEPROG, <PEEK<PR0G)flND3i:)0R192 

700 J=l;PRINT"3 »»»aREftDING 3532 EPROM»**" 

710 GOSUB 1000: PR I NT" DflTfl INTO MEMORV 12288-1S383 

720 POKEUSER,0:PRINT"aBr»nWaDflTFIH SfiDDRESS! S^flGEl SKECTOR" a?EFID MEMORVi" 

730 PRiNT"a)iniiiaDiiiii 

740 FORT 1=0TO3 : FORT2=0TO3 : FORT3=0TO255 

750 X= 1 2288+T3+ < 256*T2 )+ < 1 024*T 1 > 

760 GETSE*: IFSE*=CHRt<13)THENST0P 

770 P0KEflDR,T3 00X0520 

780 X1=PEEK<DXX):P0KEX,X1 

790 PRiNX"»airDaHiini 

800 PRINX"(«WI(M«I«"PE£K<DXX)" ".:T3.:" ".:X2;" "iTl.;" ";:"::RET1JRN 

8 1 P0KE53 , 64 : P0KE52 , : POKE 1 44 , 46 : P0KE59458 , 30 : END 

820 PRINX"n";XflB<:9)"PRESS SREXURNB TO EXIT" 

830 GOSUB980: PRINT" *»»SCOMPflRINGB***" 

840 FORT=8192T0122S7:Z=PEEK<:T-; : V=PEEK';T+4096) 

850 IFZOVTHENGOSUB1020 

860 IF3*=CHR*(13>THEN190 

870 NEXTT :GOSUB1000: PRINT" COMPARE COMPLETE" : GOSUB330: GOTO 196 

880 GOSUB970: PRINT" *»*arRflNSFERING READ Di^Tfl»i**" 

890 FORT=12288TO16383:POKE<T-4096>.FEEK(:T> HEXTGOTOiaia 

900 GOSUB970: PRINT" *«*aTRflNSFERING RROGRflM DhTAB***" 

910 POKEPROG. PEEK < PROG >0R224 

920 F0RT=8192T012287:P0K£<T+4e96).PEEK<T) NEXTGOTOlSie 

930 PR I NT "M PRESS "+V*+" TO CONTINUE" 

940 GETSt:IFS*=""THEN940 

950 IFfl*="R"THEN J=e 

960 RETURN 

970 PRiNT"3inniioiunnnni":RETUR.N 

980 Pl^ I HT " gl M MII ^ l M jW": RETURN 

1 000 PR I NT " WMIM" ; : RETURN 

1010 GOSUB 1000: PR I NT" TRflNSFER COMPLETE" : GOSUB930: GOTO 190 

1020 GOSUB990:GOSUB1 000: PRINT" »**"T"DOES NOT ="a+4096)"***" 

1030 GOSUB1040 : GOSUB930 : RETURN 

1040 PRINT"M PRESS RETURN! TO EXIT COMMAND" : RETURN 

1050 PRINT"Hllin)nilWMM 

1060 PRINT"»mHDrDin>tnMHI "RETURN 

1070 POKE NRFD, (PEEKCNRFDJflHD 253 ;■ LiR2 : RETURN 

1080 POKE NRFD,PEEKCNRFD:)flND 253 RETURN 



Listing 2: Relocator 

RELOCHTOR 

REM RELOCfiTOR BV JERRV BRINSON 

2 CLR M-.i=PEEK(53 V2 : P0KE53, MX : F=FRE<0) : BE=1024 : PG=256 

4 INPUT"3?0M BEGIN ADDRESS IN DECIMAL" ;Rfl 

6 IHPUT"lt10DULE BEGIN ADDRESS IN DECIMAL", Mfl: IFMfl<MX»256THEN6 

8 0=Mfi-BE: IN=Rfl/PG:NHX=IN:RM=(<IN-NHX)»256> :NLX=RM 

1 I N=Mfl/PG : SH;i= IN : RM= ( < IN-SH^: > »PG ) : SLX=RM 

12 FORT=BETO ( ( C PEEK < 53 )«PG ) -F J -7 ) : FOKET+0 , PEEK < T ) : PR I NT " 3«RK ING " : NEXTT : PR I NT 

14 LL=PEEK(Mfl+l>:LH=PEEK<Mfl+2J:A=';PG*SH^;j+SLX+l:EN=0+<BE+';<0-l)-FJ-7>:GOT018 

16 LL=PEEK(fl> : LH=PEEK<:fl+l :> : IFLL=0flNDLH=0THEN24 

18 Z=LL+NLX: IFZ>255THENPOKEfl, (Z-PG:) POKEA+l.PEEKiIfl+l > + <HH^-3J :G0T022 

20 POKEfl , PEEK < fl > +NLJi : POKEfl+ 1 , PEEK C A+ n + <: NH;'.- 4 J 

22 fl=<:PG«LH)+LL+0:PRINT"r»":G0T016 

24 PRINT :PRINT"MaPRESSB <RETURN> TO CONTINUE ".; 

25 POKE 167,0: GETA* : POKE 1 67 , I : I Ffl*= " " THEN25 

26 PRINT».n<10DULE BEGIN ADDRESS" =";Mfl:PRINT")«aiODULE END ADIiRESSS =";fl+l 
28 PRINT"MaBEGIN NEXT MODULEi =",A+2 

30 PRINT")«aROM LOCATIOHB =";Rfl+<<:ft+2)-0:)-BE:P0KE53.2*M;: 

32 I FNLX=255THENNLK=- 1 : mr/.=MH'/.+ 1 

34 PRINT"WrO RUN BASIC MODULE" : PR INT" M»=OKEi 48. "; HLr-;+l : FRINT":«*OKEB 41.":HH."i 
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FOR YOUR APPLE II 

Industry standard products at super saver discount prices 



SOFTWARE 

ARTSCI List SGC 

Magicalc $149.00 $ 99.00 

Magic Window II 149.00 99.00 

DBase (Apple) 695.00 475.00 

BRODERBUND 

Payroll $395.00 $295.00 

Choplifter 34.95 25.00 

Arcade Machine 44.95 29.95 

Serpentine 34.95 25.00 

Home Accountant 74.95 55.00 

Home Accountant Plus 150.00 109.00 

DATAMOST 

Snackattack $ 29.95 $ 22.50 

Thief 29.95 22.50 

Swashbuckler 34.95 24.95 

ZorkI, II, or III 39.95 27.95 

Starcross 39.95 27.95 

Format II 250.00 175.00 

System Saver & Fan 59.95 49.00 

IWultiplan 275.00 199.00 

ON LINE 

Mystery House $ 24.95 $ 19.95 

Cranston Manner 34,95 24.95 

Frogger 34.95 24.95 

Screen Writer II 129.95 99.95 

Memory Management II .. . 49.95 39.95 

PEACHTREE 

GL, AR, AP, 

Inventory, Payroll .... ea. $400.00 ea. $295.00 

Micro Buffer II 299.00 249.00 

SENSIBLE SOFTWARE 

Super Disk Copy III $29.95 $22.95 

DOS Plus 24.95 17.95 

SERIUS SOFTWARE 

Bandits $ 34,95 $ 26.95 

Epoch 34.95 26.95 

Fly Wars 29.95 22.95 

Gorgon 39.95 29.95 

Sneakers 29.95 22.95 

Joy Port 74.95 59.95 

Wizardry 49.95 34.95 

Night of Diamonds 34.95 26.95 

Star Maze 34.95 26.95 

PFS 125.00 89.95 

PFS Report 95.00 69.95 

PFS Graph 125.00 89.95 

Data Capture 4.0 64.95 49.95 

Merlin/Assembly Lines. .. . 119.95 89.95 

Merlin 64.95 49.95 

ASCII Express Pro 129.95 99.95 

Transendll 149.00 119.00 

Transend I 89.00 65.00 

DB Master 229.00 165.00 

DB Utility Pack 99.00 79.00 

STRATIGIC SIMULATION 

All Software $ 59.95 $ 39.95 

All Software 39.95 27.95 

SYNERGISTIC SOFTWARE 

Wilderness & Dungeon ... $ 32.50 S 24.95 

GPLE 64.95 49.95 

TG Joystick 59,95 45.00 

Select-A-Port 59,95 45.00 

Wordstar 325.00 

Spellstar 175.00 

SuperCalc 175.00 

VisiCalc 179.00 
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SPECIAL AND NEW 



FRANKLIN ACE 1000 COMPUTER 

Hardware and Software compatible 
with Apple II $950 

FRANKLIN ACE 1000 COMPUTER plus 
DISK DRIVE, CONTROLLER, 
and MAGICALC $1,250 

EXPAND-A-RAM * PLUS MAGICALC^ 

Everything that Visicalc*' can do and much more 
-plus additional memory. Fully compatible with 
Visicalc. Includes DOS, CP/M, Pascal Disk 
Emulator. No preboot or Apple modification 
required. 

64K EXPAND-A-RAM plus 

MAGICALC $375 

128K EXPAND-A-RAM plus 

MAGICALC $449 



APPLEsurance l\® 

Diagnostic Disk Controller and System 
Assurance Package. Standard disk 
controller plus automatic check 
of system hardware 



$99 



5V4" DISK DRIVE 

Use with either standard Apple II disk 
drive or APPLEsurance II 



$249 



GRAPHini CARD 

Prints HIRES page 1 or 2 from onboard firmware. 
Features; True 1;1 aspect ratio, prints emphasized 
mode, reverse mode, rotates 90 degrees , , , plus 
more. Compare all this with the Grappler. We think 
you'll agree that this is the best graphics card on 
the market. Specify for use with EPSON, NEC- 
8023, C-ITOH Prowriter, orOkidata, 

(List: $125) $89 



PARALLEL PRINTERS 

NEC 8023 or C-ITOH 8510 

(Virtually identical) Specifications: • 100 CPS dot 
matrix printer • 80 column print -136 characters 
per line • Tractor/friction feed • 7 different print 
fonts included • 2K printer buffer • Proportional 
spacing • Bit image graphics and graphic symbols. 

NEC 8023 or C-ITGH $475 

NEC 8023 or C-ITOH 8510 with 
Parallel Interface and Cable $550 

EPSON 100 with Parallel Interface 
and Cable $775 

BROTHER Daisywheel Printer $895 

VERSAcard FROM PROMETHEUS 

Four cards on one! With true simultaneous opera- 
tion. Includes: (1) Serial Input/Output Interface, 
(2) Parallel Output Interface, (3) Precision Clock/ 
Calendar, and (4) BSR Control. All on one card. 
Fully compatible with CP/M' and Apple Pascal". 

(List: $249) $169 



WORD PROCESSING SPECIAL 
WITH WORDSTAR AND SUPERCALC! 

Do professional word processing on your APPLE. 

All necessary hardware and software included. 

Complete 8(5 column video display, enhanced 
character set, 16K memory board, Z-Card with 
CP/M' software, Wordstar and word processing 
software and SuperCALC. 

(List: $1,228).., Special at $795 

Z-80 CARDS List SGC 

Microsoft Softcard Z-80 . . . $399.00 $289.00 

ALS Synergizer 749.00 595.00 

U-Z-8(J Processor Board . . 125.00 

Microsoft+PremiumSyst. . 595.00 

80-COLUMN CARDS 

Smarterm 80-Col Display . . $345.00 $225.00 
Smarterm Expanded 

Character Set 40.00 

Combination Smarterm 

& Exp. Char. Set 260.00 

Videx Videoterm 275.00 

Videx Enhanacer II 149,00 125.00 

Videx VisiCalc Preboot .... 49.95 45.00 

MODEMS FOR YOUR APPLE II 

Hayes Smartmodem 300 , . $229.00 

Hayes Smartmodem 1200 . 699.00 550.00 

Micromodem II 279.00 

Hayes 100 Baud Call 

Apple Cat II 389.00 299.00 

Cat Modem 199.00 175.00 

MONITORS 

Amdek 300G Green $159.00 

Color-Taxam RGB 

with Interface 395.00 

PARALLEL INTERFACE 

Centronics Compat. PRT-1 . $ 69.00 

JOYSTICK Replaces two 

Apple Paddle Controllers . $ 59,00 $ 39.00 

FUNCTION STRIP $ 79 00 $ 65.00 

MEMORY EXPANSION 

Prometheus 16K RAM Module 

complete $169.00 $ 65.00 

51/4" FLOPPY DISKS 
Box oflO with hub rings 

With other purchase $ 19.95 

Without other purchase , . . 23.00 



All equipment shipped factory fresti Manufacturers' warranties 
included. California customers add 6'/;% tax. Include payment by 
personal ctieck, money order, or casfiier's cfieck witfi order and 
SGC will pay snipping cfiarge. Call for amount of stiipping ctiarge 
wtien paying t]y credit card 

All Items are normally in stock 

415)490-3420 

. . . And we'll be here to help after you 

receive your order. Feel free to call the SGC 

Technical Staff for assistance, 

Th« mail order specialists 

1 342 Quartz Circle, Livermore, CA 94550 
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AUTOIVIATIC 



HEAD 



LOAD 



CONTROL 




by Peter Kleijnjan 



By adding just a few bytes of patch code to the 
operating system, OSI minifloppy system users can have 
fancy head load control. Now the head is loaded only 
during dislc activity. 



OSI minifloppy system users may 
have noticed the LED that glows 
continually on the front of their disk 
drives. This LED is on whenever the disk 
head magnet is activated and the head is 
pulled down to touch the surface of the 
diskette: so-called head load. Whenever 
your computer system is on, the disk 
head is loaded, and the glowing LED is 
a silent witness to the wearing away of 
your disk head and floppies. In 
addition, that handsome auto-eject 
mechanism of your floppy drives won't 
work when you keep the head loaded 
all the time. 

There is an elegant way to reduce 
diskette and disk head wear: just 
unload the disk head when there is no 
disk activity. This type of head load 
control is a standard feature of nearly 
all professional floppy disk-based 
systems, including OSI's C3 and C8P 
8" systems. OS-65D was originally 
54 



developed for use on these 8" systems, 
and this explains why most of the soft- 
ware you need to automatically load 
and unload the disk head is already part 
of it. All OS-65D commands that re- 
quire disk access are tied into head 
loading and unloading routines. These 
routines, however, were not written to 
control the MPI B51, the disk drive 
used in OSI's minifloppy systems. 

The minifloppy disk drive con- 
troller is connected to a PIA at $C002, 
with separate bits for stepping, reading/ 
writing, erasing, track indication, 
etc. OS-65D drives a head load bit at 
D7 of the PIA, but this bit is not con- 
nected to anything meaningful on 
minifloppy systems. The MPI drive 
controller does not have a separate head 
load control input. However, a drive 
select control input at D5 that is used 
by the operating system's SElect com- 
mand, unloads the head when it is off 
MICRO 



select. Now, if you don't use more than 
one minifloppy drive, there is no 
reason why you shouldn't use this in- 
put to control your head load. 

The first thing you have to do is 
convince the operating system that the 
head load bit is at D5 (counting 
D0-D7), active high, instead of D7, ac- 
tive low. This is easy: instead of reset- 
ting D7 to load the head to disk, set D5, 
and vice versa. There is a little more to 
it than this, however. The operating 
system first positions the head and 
then loads it to disk, which is perfectly 
logical. You are using the drive select, 
however, instead of the nonexistent 
head load. This means that when the 
operating system tries to position the 
head, the drive is not listening (it's off 
select) and you get read errors. What 
you have to do is to call your load-head 
routine before you position the head. 
This is achieved by installing patches 
(PATCHI and PATCH2) in both the 
position-head-to-track and the HOme 
routine. 

When you look at the code, you'll 
notice a few quirks that require ex- 
planation. OS-65D V3.2 has an un- 
documented bonus: sector 2 on track 6 
contains extensions to the operating 
system that are loaded to $3200 for one 
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Listing 1: Head Load Control Assembly Listing 



10 
20 
30 
40 
50 
G0 
70 
S0 
90 
100 



; MODIFICATION TO USE THE fiUTOMOTIC 
;HEflD LOAD ON/OFF FEATURE OF OSESD 
!V 3.2 ON C2-4P OND C4P SYSTEMS 

11111I1I IlIIIIIIIIIIIIIIIIIIIII 

I 

;LOftD HEftD 

;SET BIT 5 AT »C002 



2754 
2754 0920 



LOftD 



110 2755 0D02C0 

120 

130 

140 

150 



*-=«2754 
LDfl #*20 
ORn SC002 



? I^IIIIIIIIIIIIIIIIIIIII 

;UNLOftD HEftD 

; RESET BIT 5 AT »C002 



Head Load Control 

requires: 

C2/4P or C4P with OS65D V3.2 



page. In this page, OSI has placed a 
modified keyboard routine instead of 
the one in ROM at $FDOO. Although 
this routine is just as bizarre as the old 
one, you can appreciate the gesture and 
use the space that is left over to accom- 
modate your patches. The keyboard 
routine goes from $3200 to $32 ID, so 
your patches start at $32 IE. Since the 
patches reside on track 6,2 you cannot 
call them before the operating system 
is loaded in full. Therefore, install the 
final patch in the position-head-to- 
track routine only just before you start 
loading BASIC. 

After these changes, there are two 
commands that do not unload the head 
upon return; HOme and INitialize. In 
both cases, the disk head is automati- 
cally unloaded again on completion of 
the next disk-accessing command. 
Listing 2 is a BASIC program to install 
the modifications. I must emphasize 
that only V3.2 can be used: the code 
lay-out and timing of V3.0 and V3. 1 are 
totally different. 



You may contact Mr. Kleijnjan at 
Kleijnjan Consultants BV, Kerkwetering 
n, 3421 TS Oudewater, The Netherlands. 



1G0 
170 
180 
190 
200 
210 
220 
230 
240 
250 

2E0 
270 
280 
230 
300 
310 
320 
330 
340 
350 
360 
370 
380 
330 
400 
410 
420 
430 
440 
450 
460 
470 
480 
430 
500 
510 
510 



27E1 

2751 ft9DF 
2783 2D02C0 



26B3 

25G3 202432 

2E17 

2E17 202B32 
2294 

2294 400922 
2209 

2203 09 IE 
22flB 8DD82S 
22flE 0932 
22B0 &D0926 



321E 

32 IE 205427 
3221 4CDfl23 
3224 205427 
3227 208026 
3220 60 
322B 0960 
322D 8D202B 
3230 201O2B 
3233 0940 
3235 8D202B 
3238 60 



^■'Cl 

. ""L 1 Ja 



*=«2761 
UNLOOD LDO #«DF 
OND $0002 



iiiiiiiiiiiiiiiiiii: 



iiiiiiiiii 



1 I I I I I I : 



*=»2G63 ;i:home) 

JSR P0TCH2 

*=»2E17 ;i:FIND NOME 

IN DIR) 

JSR PflT0H4 

*=»2294 

JMP »2209 

*=»2209 

LDO #»1E 

STO »26D8 

LDO #»32 

STO »26D9 



I 7 7 7 I 7 7 : 



POTOHl 



P0T0H2 

JSR 
RTS 

P0T0H4 LDO 
STO 
JSR 
LDO 
STO 
RTS 



*=»321E 
JSR $2754 
JMP »29D0 
JSR »2754 
«26&0 



««60 

«2B20 

«2B10 

#*4C 

*2B20 



i SELF-MOD CODE 
;3 S2B20 






lENT 
IIB 
12IS 
130 
14a 
ISB 
IGB 
17B 
18B 
13B 
200 
210 
228 
230 
2Ut 
2SB 

2sa 

270 
280 
290 
3B0 
3ia 
320 
330 
340 
350 
3EB 
370 



'Ustlag 2: Head Load Control BASIC Listing 



PRINT: PRINT "Hahe sure tha.t you have a OEi-bSO V.'. ^ system cish' 
PRINT" tn the diiiK drive Mith' track copier on 13ii;" 
PREHT'then Prebs any key. ":DI5K"'GO :S2&" 
DISKE'CR S2aB=B6,2" 
F0!Il«BTQ2E»REftDfl;P0KE2ia22-»l,n:NEKT 

DISK* "SO e&>2»sza0/i" 

fiI3K"<CA AflaesBl.l" . 

PahE1399l»32;Pl3KElS992,43iP0KEiSS33. SB 

OISh'"Sn Bli t«&fliBO/8" 

PQKESlBSiBsPQHEaia&.BBsRbn tiET ttS POINTERS 

LF*>GHR*(.1B) »CR*=CHRSri3'} :CftC>CHR*iE<t> 

PRINT«5i "EXIT"-fCRS-l-"CA 820^^1 3t 1"+CR«; 

PRIMT»S. "GO 82B8'^-frCR*!<-"2"-i>CR$+"R42a8''+t:R»; 

PRINT*S. "E"+CR«+"En"+CRS: EPRIMT*9 

PHINT»5.CSS+"4754'■+CH»+"fl^"+LF*+"2a"+L^»+■'BD"+LF«! 

PRINT4IS. "82"+CR*-.rPRINTtt3 

PRINT#5,CA*+"47Bl"+CR»+"ft9"+LF*+"DF"+LF»-»"JU"+LF»! 

PRINTttS. ■'B2"+CRft;;PRlNTtt9 

PRl NT#5. CHS+ "4SB3" +CR»+ "2B "+LF»+ " 2ft " +LFS+ " 3:. " +CK» ! i P i« I N r*9 

PRINTttS. Cfi*+"4234' +CR*+"4C"-H.F»+"fl9"+LF*+"22»+CR»; ;PRINTll9 

PRlNT#S,Cfl*+"42fl9"+CR»+"fi9"+LF»+"lE"+LF»+"eD"-iLF«+"DS"! 

PRINT#5i LF»+"Z6>"*LF»+"fi9"+LF»+»32"+LF*+»SD"+LF«+"D9" ! 

PRII»T»5.LF»*-"2B"+CR»+C0«+"47C1"+CR*+ -gA-'+LH*! :PRINT»g 

PRINTttS. "ex"-k:r«+"ca Bzae=i3. i"-»'CR«-»-"go e2aa"+CR«; 

PRINTttS. "2"+CR*+"Ma2BB/22B0. 8»+CR»+"E"+CP«+"G0 FFflB»+CR» 
POKES098. 0:PaKE9a99. tMrDISK' "10 la. a2'':ENl> 
DflTft32. 84r 33. 7G. 218. 41 . 32.. 84. 39. 32. 1 38. 38. 96 
DATA}E9. 9E. 141 . 32. 43. 32 . 2E. 43. 169. 76. 1 al . 32. A3. Sb 
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by Jack Brindle 



Complete hardwafe'fK^ 



drivers help explain f^s^ 
6502-based system/^' ^"^^ 







Many single-board computers have 
cassette interfaces built into the 
system. These interfaces provide ade- 
quate, low-cost mass storage for begin- 
ning programmers or small system 
jobs. However, as you progress Ln com- 
puting, the job of editing, assembling 
(or compiling), and loading becomes 
tedious due to the slow data transfer 
rates inherent with tape systems. 

For several years floppy disks have 
been the standard mass storage device 
for development systems. Until recently 
these systems were too expensive for 
those of us on an experimenter's 
budget. Floppy controllers generally 
were large boards containing many 
diverse components, and required 
special circuitry to interface to a 
microcomputer system. 

Western Digital simplified the 
design with the introduction of the 
FDD 1771 floppy disk controller. This 
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chip placed the tasks of data accumula- 
tion, timing, block check control and 
drive control into one LSI package. A 
second generation chip, the FDD 1791 
expanded upon the FDD1771, while 
solving processor interface and data 
detection problems. Western Digital 
now manufactures a family of disk con- 
trollers, the FDD179X series of 
devices. Each member of the family of- 
fers variations of the FDD1791, such as 
a true or inverting data bus, and double- 
density capability. Another chip re- 
cently introduced by Western Digital, 
the WD 1691, handles the separation 
and detection of data from the floppy 
drive through a phase-lock loop ar- 
rangement. These devices form the 
basis for an inexpensive mass storage 
system for the small computer. 

The standard recording technique 
used in most floppy disk systems is the 
IBM 3740 format. The FDD179X con- 
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trollers use this format for data storage, 
allowing easy interchange of data be- 
tween users. The 3740 format uses 
128-byte sectors with 26 sectors per 
track and 77 tracks per drive. The 77 
tracks recorded on each floppy contain 
a lot of information (see figure 1) . In ad- 
dition to the 26 data fields, there are 
pre-index fields, post-index fields, gap 
fields, and other fields used by the con- 
troller to keep track of exactly what 
data it is reading. The track and sector 
identifiers are recorded to provide a 
check to the controller for its internal 
count registers. Each sector contains 
error detection information Ln the form 
of cyclic redundancy check (CRC) char- 
acters. The controller compares these 
characters with figures it has ac- 
cumulated during the data transfer. 
Any differences are flagged as an error 
by the controller. 

I chose the FDD 1793 for my system 
because of its double-density capability 
and true data bus. The addition of 12 
integrated circuits form the basis for 
the floppy system. I use an eight-inch 
Siemens FDD- 100-8 A floppy disk drive 
as the mass storage device, but a mini- 
floppy could just as easily be interfaced 
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with one minor change. Appropriate 
control software finishes off the 
system, allowing the main processor to 
control all data transfers. 

The target computer for the floppy 
storage system consists of an MCS6502 
microprocessor with a clock speed of 
1.25 MHz, 28 kilobytes of static RAM, 
and 12 kilobytes of EPROM. Previously, 
I used a cassette interface for mass 
storage. This system provides the basis 
for a powerful computing system. 

Hardware 

See figure 2 for a schematic of the 
floppy disk interface. The system can 
be broken into three parts. Ul, 2, 8, and 
10 comprise the bus interface to prop- 
erly connect the system's components 
to the OSI bus. Ul and 2 are four-bit bi- 
directional buffers used to invert the 
normal data for the system data bus. 
The direction of data travel in these 
buffers is determined by UIO, a fast 
PROM used to decode the address bus, 
enabling the on-board devices when ad- 
dressed. I decided to use a TMS2508 at 
UIO during development because of 
programming ease. This device can be 
programmed using a 2716- type EPROM 
programmer. I later changed the device 
to an MMI 6341 bipolar PROM. This 
eliminates timing problems caused by 
the slower EPROM when you're access- 
ing memory devices. The PROM is pro- 
grammed to provide a low output on a 
device-select output line only when the 
desired device address is applied to the 
address lines. Bit 7 of the PROM pro- 
vides data direction information, so it 
must be programmed to output a zero 
for a data read of a selected device. 
Figure 3 gives examples of the PROM 
data. By using a PROM you are allowed 
flexibility in the addresses used for 
selecting devices on board. The unused 
output lines of the decoder can be used 
to select other devices on board, such 
as parallel or serial I/O interfaces. 

The RD and WR signals required by 
the FDD 1793 are derived from the 
system phase 2 clock and R/W signal 
by U8, a 74LS0O TTL quad NAND gate. 

The second section of the system 
consists of the disk controller and its 
associated circuitry. I chose an 
FDD1793 for its normal (non- inverted) 
data bus and double-density format 
capability. The FDC requires a 2MHz 
symmetrical square wave at its clock 
input. This signal is derived from a 4 
MHz crystal-controlled clock generated 
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by two sections of U7. A 74LS04 should 
not be used here to avoid startup 
problems created by the 74LS04's low 
input impedance. The 4 MHz clock is 
divided by two by one section of Ul 1, a 
74LS74 D-type flip-flop. The output 
is a 2 MHz square wave used to drive 
the FDD1793. For use with a mini- 
floppy, the signal should again be di- 
vided by two to give a 1 MHz square 
wave required for the slower mini- 
floppy data rate. 

The task of data separation and 
recovery is handled by U5 and 6. U5 is 
a Western Digital WD 1691 Floppy Sup- 
port Logic device. It works in conjunc- 
tion with U6, a 74S124 voltage- 



write head is fully loaded prior to at- 
tempting any read or write with the 
disk. The period of the one-shot, which 
is about 33 milliseconds for a Siemens 
FDD-100-8A, can be adjusted by 
changing R3 to meet the requirements 
of other drives. Signals going from the 
controller board to the floppy disk drive 
are buffered with 7406 inverting open 
collector buffers. This provides the in- 
verted signal levels required by the disk 
drive. Input signals are generally unbuf- 
fered, although the Raw-Read and 
Ready signals are both buffered to 
reduce noise pickup. All lines use one 
kilohm pull-up resistors as terminators 
to reduce noise and provide proper TTL 



Although based on the OSI-48 bus, the interface could 
easily be adapted, with minor software modifications, to 
other systems. 



controlled oscillator, as a phase-lock 
loop (PLL) data separator. The FM en- 
coded data recorded on the diskette 
consists of clock and data pulses. Each 
data cell begins with a clock pulse. If 
the data bit is a ' 1', a data pulse follows 
in the middle of the cell; no pulse is 
recorded for a '0'. The WD1691 senses 
each clock pulse, transmitting it to the 
FDC on detection. The frequency of the 
clock pulses is monitored by the PLL, 
causing the PLL frequency to follow the 
input rate. Only the clock pulses need 
to be separated; the FDC takes care of 
separating the data pulses from the in- 
put stream. 

U12 provides a delay for the disk 
controller to assure that the disk read/ 



level signals. The cable connecting the 
board to the floppy drive should be kept 
as short as possible. 

The third part of the system is used 
to lessen the software requirements to 
drive the FDC. This section consists of 
an MCS6522 Versatile Interface Adapter 
[VIA]. The FDC's DRQ and IRQ lines 
are routed to PA7 and PA6 of the VIA. 
This allows a single 6502 'BIT' instruc- 
tion to read the status of the FDC, 
saving valuable time in interrogating 
the FDC for data. Bit of port A is used 
to select the disk drive in a two-drive 
system. The remaining bits are avail- 
able for other control or status uses as 
desired. Additionally, a full eight-bit 
port with handshaking is available for 
(Continued on page 59) 



Figure 1: IBM 3740 Track Format 
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Figure 2: Interface Schematic 






ill 






o 

Q. 

" I9ni 

K ObJ 
S |x|t/)| 



ICNI'- 

— ' — ' 
bJ U 



Q 

QO 
O 

to 






§ 1 1 1 1 1 1 1 1 1 1 1 








+ 










+ 


t/J 




^ 




p 


g(Doo^ooa)r--i^t-„r^t- 


UJ 




^ 






^ 




ro 






UJ 


2 





2 


<• 




lj 


cNn B 


c-joi^* 0^ 


> 




n.SSi/io^uioooiG-'^ 












O-tN 








atP =) Z) => =) 3 Z) 3 Z) => =) 3 




>>>QQ 

CN lO lO z Z 
^- + +00 




00010 — oiTfin 
<<<<<< 



In CO 



>- 

CD 



< 

Q 



58 



MICRO 



No. 62 ■ July 1983 



driving a printer or other I/O device. 

The parts for this project, available 
from several parts distributers adver- 
tising in computer magazines, cost 
about $90.00. The FDD1793 is the 
most expensive part. 



Adjustment 

To adjust the PLL made up by the 
WD 1691 and 74LS124 use the following 
steps: disconnect the disk drive from the 
circuit. Connect the Raw-Read line to 
-1-5 volts. Adjust Rl [Bias Voltage 
Adjust] for a reading of 1 .4 volts at pin 2 
of U6. You should do this with a high- 
impedance voltmeter to avoid loading 
the circuit. Next coimect a frequency 
counter to pin 7 of the 74S124. Adjust 
R2. to give a 4 MHz signal at this point. 
These are the only adjustments required 
for the system to operate normally. 

Software 

The software that drives the floppy 
disk controller is written using a multi- 
level approach. The fundamental level 
contains the disk control and read/write 
routines that interface directly to the 
controller. The second level builds on 
these routines to provide a file handling 
structure. User programs rely on both 
levels to support their execution. 

You achieve disk control by issuing 
commands to the FDD 1793 (FDC). 
These commands are broken into four 
levels (see figtire 4], The first level con- 
trols the position of the read/write 
head over the diskette. Level two is 
used for normal sector data transfers 
and level three is used generally only 
for formatting the diskette. Level four 
gives a facility for interrupting disk 
functions and placing the FDC in a 
known state prior to issuing a disk 
command. 

The controller status is available in 
an eight-bit read-only reigster. The con- 
tents and meaning of the status register 
is dependent on the currently executing 
command, or that most recently ex- 
ecuted. A summary of the bit designa- 
tions for type 1, read sector and write 
sector commands is given in figure 5. 
Upon termination of a command, the 
register is tested for proper execution. If 
an error flag is set, use an error pro- 
cedure to recover the invalid command 
execution. 

On reset the Force Interrupt com- 
mand is issued, using its terminate 
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function to place the controller in a 
ready mode, then a home command 
restores the read/write head to track 
00. This process clears the FDD1793's 
internal track counter to 0, with the 
FDC ready to accept further com- 
mands. The controller can now be com- 
manded to read or write data, or move 
to a desired track to get data. To move 
to another track, the user can issue 
multiple step, step-in, or step-out com- 
mands until the head is positioned over 
the desired track. An easier way to ac- 
complish this task is to load the data 
register with the desired track and issue 
a seek command. This allows the con- 
troller to perform the necessary steps 
for the CPU, signalling an IRQ when 
finished. This command is illustrated 
in listing 1. 

Reading and writing data to the 
diskette is a simple task when done 
with the FDC. As listing 2 shows, the 



desired sector ID is loaded into the sec- 
tor register, then the proper read or 
write command is issued. A wait loop 
is then executed, waiting for the DRQ 
line to become active. The DRQ bit in 
the FDC's status register could be 
tested, but a longer operation would be 
necessary since the data must be AND- 
ed with a bit mask to get the proper bit. 
Further, the busy flag information 
would be lost, requiring more process- 
ing to recover the data. By using the 
6522, these extra steps are eliminated, 
saving both time and memory space. 
The IRQ bit is tested first to assure that 
the operation has not come to an error 
halt. The DRQ bit is tested until it 
becomes active and the data byte is 
read and stored. The location coimter is 
updated; the operation continues until 
128 bytes have been transferred or an 
error interrupt occurs. Finally the 
status register is read and checked for 
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proper execution. If an error occurred, 
the operating system handles this by 
retrying the operation a specified 
number of times. Should the error con- 
tinue, the command is aborted and the 
operator notified. Note that writing to 
the disk is performed in the same way, 
with the data transfer going to the FDC 
from the memory buffer. 

Now I will turn to the second level 
of the software system. As discussed 
previously, this level uses the basic 
sector read, write, and disk control 
functions from the first level to provide 
a file-handling structtire. Rather than 
write this level on my own and be sad- 
dled with a one-of-a-kind system, I 
decided to conduct a search for a com- 
merically available operating system to 
run on my system. The 6502 user has 
had a major disadvantage compared to 
other processor users with the lack of a 
common operating system. This has 
made software exchange next to im- 
possible with so many standards 
(Continued on page 62) 
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THE TACKLER - dual . MODE PARAUfL 
INTERFACE FOR THE APPLE^ 2 BOARDS IN ONE FOR NO MORE 
COMPATIBIUTV PROBLEMS! 

An intelligent board to provide easy control of your printer's full potential. 
Plus a standard parallel board at the flip of a switch - your assurance of 
compatibility with essentially all software lor the APPLE'. Hires printing 
with simple keyboard commands that replace hard to use software 
routines. No disks to load Special features include inverse, doubled, and 
rotated graphics and many text control features, available through easy 
keyboard or software commands. Uses Industry standard graphics 
commands. This is the first truly universal intelligent parallel interface! 
Change printers - no need to buy another board, lust plug in one of our 
ROM'S and you re all set. ROM'S available for Epson, C. Itoh, NEC, and 
Okidata - others ava ilable soon. Specify printer when ordering. Call fer 
Pricf 




Super Pix 

Hires screendump software for the Epson, OKI, C Iton and Nee 8023. Use with Tymac PPC- iOO. 
Special J19.95 (Specify Prinlei) 




THE UPGRADEABLE PPC-100 
PARALLEL PRINTER CARD 

A Universal Centronics type parallel printer board complete with cable 
and connector. This unique board allows you to turn on and off the high 
bit so that you can access additional features m many printers. Easily 
upgradeable to a hilly intelligent printer board with graphics and text 
dumps. Use with EPSON, C, ITOH, ANADEX, STAR-WRITER. NEC, OKI 
and others with standard Centronics configuration. J139.0O 



IF YOU WANT GRAPHICS AND FORMAHING THEN 
CHOOSE THE PERFORMER 

lor Epson. OKI, NEC 8023. C. ITOH 8510 provides resident HIRES screen 
dump and print lormatting in firmware Plugs into Apple slot and easy 
access to all printer fonts through menu with PRI command. Use with 
standard printer cards to add intelligence. J49.00 specify printer. 




THE MIRROR FIRMWARE FOR NOVATION APPLE CAT ll'' 

The Data Communication Handler ROM Emulates syntax of an other popular Apple Modem product 
with improvements Plugs directly on Apple CAT II Board. Supports Videx and Smarterm 80 column 
cards, touch tone and rotary dial, remote terminal, voice toggle, easy printer access and much more. 
List $39.00 Introductory Price J29.0O 
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MINI ROM BOARDS 

Place your 2K program on our Mini Rom 
Board. Room forone2716 EPROM. Useinany 
slot but zero. Only J34.95 



DOUBLE DOS Plus 

A piggy-back board that plugs into the disk- 
controller card so that you can switch select 
between DOS 3.2 and DOS 3 3 DOUBLE DOS 
Plus requires APPLE DOS ROMS. J39.00 



Mr. Lister - Customer Contact Profiler & Mailer 

A Super Mail List Plus more — up to 1000 Entries on single 3.3 Disk (only I Drive reguireol — 2 
second access time to any name — hjll sort capabilities — Dual Index Modes — supports new 9 
digit Zip. Easy to follow manual — Not Copy Protected — 4 user defined tables with 26 sort 
selections per table — Beta tested for 6 months — user defined label generation 
Introductory Price $135. J99.00 Dealer &: Dist. Inquiries invited. 



APPlf UNK 

A communications system for the Apple* (Requires Hayes Micro Modem). Transmit and receive any 
type of file between APPLES', Automatic multi-file transler real lime clock indicating file transfer 
time. Complete error check. Plus conversation mode. Only one package needed for full transfers. 
Compatable with all DOS file types, (requires Hayes Micro Modem) J59.00 



THE APPLE CARD/ATARI CARD 

Two sided 100% plastic reference card Loaded with information of interest to all Apple and Atari 
owners J3.98 



NIBBLES AWAY II 

AGAIN! Ahead of all others. 

• AUTO- LOAD PARAMETERS . . . Frees the user from having to Manually Key in 
Param values used with the more popular software packages available for the Apple II. 

• EXPANDED USER MANUAL . . . incorporates new Tutorials for all levels of 
expertice: Beginners Flowchart for 'where do I begin' to Advanced Disk Analysis is included 

• TRACK/SECTOR EDITOR ... An all new Track/Sector Editor including the 
following features: Read, Write. Insert. Delete Search, and impressive Print capabilities! 

• DISK DIAGNOSTICS . . Checks such things as: Drive Speed Diskette Media 
Reliability, and Erasing Diskettes. 

• HIGHEST RATED . . . Best back up Program in Softalk Poll (Rated 8,25 out of '.0) 

• CONTINUAL UPDATES . . . Available Irom computer Applications ano new ustmgs 
on the source. $69.95 




Dealer and Distributor Inquiries Invited. 

/MICRO-H^RE DIST. INC. 

P.O. BOX U3 POMPTON PLAINS, N.J. 07444 

201-838-9027 



Circle No. 37 



60 



MICRO 



No, 62 • July 1983 



THE NEWEST RELEASE FROM ARTISAN SYSTEMS CORP. 

DP-09 



2MHZ 
OPERATION 



256K DRAM 



6 RS-232 
SERIAL PORTS 



8 28-PIN 
SOCKETS 




DUAL 68B09E 
PROCESSORS 



6809 BASED SINGLE BOARD SYSTEM 



FEATURES: 



« 68B09E ADVANCED 8/16 BIT SYSTEM PROCESSOR WITH 

MEMORY MANAGEMENT HARDWARE ALLOWS FOR 

ONE MEGABYTE ADDRESS SPACE 
» 64K - 256KBYTE DRAM 
« 8 EACH 28-PIN SOCKETS FOR UP TO 128KBYTE EPROM 

EPROMS CAN BE 2732. 2784 OR 27128 

IN ADDITION 2KX8 OR 8KX8 STATIC RAMS MAY BE USED 

0) SIX RS-232 SERIAL PORTS WITH FULL MODEM HANDSHAKE 
ADVANCED 655IA ACIAS WITH SOFTWARE BAUD RATE 
SELECT OF 110 TO 19 2KBAUD 

<D 6522A INTERFACE CHIP PROVIDES TWO 16-BIT TIMERS 
PLUS TWO 8-BIT PARALLEL PORTS (UNBUFFERED) 

1 8 AUTO-VECTORED INTERRUPTS FOR HIGH SPEED I/O HANDLING 

» 50-PIN EXPANSION SOCKET 



TERMS: 



ALL ORDERS PREPAID, VISA, OR MASTERCARD 
ALLOW 3 TO 4 WEEKS FOR DELIVERY 
ADD 2 WEEKS FOR PERSONAL CHECKS 



FLOPPY 
CONTROLLER 



WINCHESTER 
INTERFACE 



4 LAYER 
PC BOARD 

1 2'X9' 
5 V, 4 A 
112V, 2 A 
» INDEPENDENT 68B09E SUBSYSTEM FOR DISK CONTROL 
1-4 FLOPPYS 5' OR 8' SS DS SD DD 

SASI INTERFACE ALLOWS 5-45MBYTE WINCHESTERS 
TO BE CONNECTED USING EXTERNAL CONTROLLER 
THE SUBSYSTEM USES A PROPRIETARY DMA TECHNIQUE 
FOR HIGH SPEED OPERATION 
» FLEX OPERATING SYSTEM IS AVAILABLE 

PRICES: 

DP-09 AST 64K 4 SERIAL PORTS 

FLEX FOR DP-09 

OS-09 LEVEL ONE S TWO 

FORTH 

ARTISAN SYSTEMS CORP. 
410 CROSS ST. 
WINCHESTER, MA 01890 
(617) 721-2109 
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floating about. The availability of a 
quality, common operating system has 
helped push the popularity of 
Z80-based computers. 

After several months of searching, I 
finally found my operating system. 
Called DOS/65 it is CP/M file-compa- 
tible, allowing files to be read and written 
from CP/M version 1.4 diskettes. Since 
we are using a 6502 processor, the CP/M 
programs cannot be executed, except for 
those written in BASIC. DOS/ 65 in- 
cludes a good assembler with loader, 
editor, debugger and BASIC -E/ 65 BASIC 
compiler/interpreter. The assembler ob- 
ject output is in KIM file format, which 
can be converted to absolute executable 
code using the system loader. Assembly- 
language programs can be written on the 
system, assembled and debugged, then 
downloaded to a KIM, SYM, or TIM 
system, or pimched to paper tape for 
loading by one of these systems. This 
feature is useful for developing programs 
for controllers or small systems. 

(continued) 



Listing 2: Sector READ Routine 
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32K CMOS STATIC RAM BOARD for SYM/AIM 

Models MB-132/32K, S299 
/16KS241,/8K S197 
Features: 

• 200n5 Low Power CMOS. STATIC RAM 

• Extends your expansion connector 

• Plug compatible with 2716 EPROMS 

• First 8K are jumper selectable 

• Entire board may be bank-switched 
■ G-IO Glass epoxy, Full solder mask. Gold lingers 

• Full 1 -year limited warranty 

I/O EXPANSION BOARD for the SYM/AIM 




l/OX-122 $60 
l/OX-222 $72 
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and oiher microcomputers thai use 6522 VIAsfor I/O 
and do not provide fult address decoding on board 
This board has physical space for four additional 6522 
VIAs, and provides additional decoding for a totat of 
1 6 devices Connectors for all I/O lines, and further 
expansion are included All 6522 functions are 
available, with no interference with previous 
functions of the original VIA Two versions of this 
board are available. The l/OX-122 mounts above, and 
directly plugs into, an on-board 6522 socket, and 
relocates the original VIA to the expansion board. 
Where there are space limitations, the l/OX-222 
uses a dip header and an 8" cable for remote 
installation. 



REAL-TIME CLOCK/ CALENDAR $60 Write for info 
P.O. Box 1019 • Whittier, CA 90609 • (213) 941-1383 




O 



Write for 
MICRO'S 

Learning Center 



We pay top rates for articles 
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editors, or'iust mail it in. 

Write to: 

JVUCRO Magazine 

Learning Center 

P.O. Box 6502 

Amherst, NH 03031. 
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Figure 5: Status Register Summary 
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CRC ERROR 
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BUSY 
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DOS/65, like CP/M, is written in 
several layers. The first layer, the 
System Interface Module (SIM], in- 
cludes the disk drivers discussed 
previously, along with system console 
and printer drivers., The second level, 
called PEM or Primitive Interface 
Module, links individual sectors 
together to form files. Sectors are 
dynamically allocated: as sectors are 
needed for file data, they are allocated 
from a free pool of sectors. Thus the 
sectors allocated to a file need not be 
contiguous, and generally are not. This 
eliminates the need for sector packing 
found in many systems that can cause 



problems if a power interruption occurs 
during a pack operation. The third layer 
of DOS/ 65 is called the CCM, or Con- 
sole Command Monitor. This layer 
provides a user interface using the two 
lower levels. Through this interface, 
the user can develop, compile, and ex- 
ecute programs on the system without 
worrying about the specifics of the 
system hardware. 

These three layers give DOS/65 
much power and flexibility; I highly 
recommended this system to the 6502 
user. (DOS/ 65 is availble from Micro 
Systems Engineering, 1363 Nathan 
Hale Dr., Phoenixville, PA 19460.) 



Conclusion 

The floppy disk system discussed in 
this article is a versatile yet simple 
system for the microcomputer user. 
The small component count and use of 
the CPU in data transfers provides a 
low cost system with enough power to 
control several floppy disk drives. The 
system software helps give the user a 
"big system" feeling. A computer us- 
ing these components will provide a 
good tool for software development or a 
general purpose computer capable of 
meeting all but the most demanding 
user's needs. 

I would like to thank Mark Gintis 
and Richard Leary for their help in this 
project, and Western Digital for their 
exceptional diskette controller. 



Mr. Brindle is a design engineer with 
Motorola's Portable Products Division. His 
system is a homebrew 6502-based 
computer, which has evolved from a single 
OSI 400 board to a disk-based 28K system. 
You may contact Mr. Brindle at 1174 
N.W. 29th St., Sunrise, FL 33323. 
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Perry PeRiphERAls RepaIrs KIMs!! 

(SYMs ANd AIMS Too) 

• We will Diagnose, Repair, and Completely Test your Single Board Computer 

• We Socket all replaced Integrated Circuits 

• You receive a 30-day Parts and Labor Warranty 

• Your repaired S.B.C. returned via U.P.S. — C.O.D., Cash 

Don't delay! Send us your S.B.C. for repair today 
Ship To: (Preferably via U.P.S.) 

Perry PerIpIieraIs 

6 Brookhaven Drive 
Rocky Point, NY 11778 

KIM-I REpUcEMENT ModulEs 

• Exact replacement for MOS/Commodore KIM-1 S.B.C. 

• Original KIM-1 firmware — 1K and 4K RAM versions 

Replacement KIM-I KEyboARds 

• Identical to those on early KIMS — SST switch in top right corner 

• Easily installed in later model KIMs 

Perry Peripherals is an authorized HDE factory service center. 

Perry Peripherals carries a full line of the acclaimed HDE expansion components for you KIM, SYM, and AIM, 
including RAM boards. Disk Systems, and Software like HDE Disk BASIC V1.1. Yes, we also have diskettes. For 
more information write to: P.O Box 924, Miller Place, NY 11764, or Phone (516) 744-6462. cirdeNo.M 
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WORDPROCESSOR 
)R THE COMMODORE 64 
ALSO CHECKS YOUR SPELLING! 



SCRIPT 64 



Suggested Retail: $139.95 



"REALLY FOXY IS BEING LETTER PERFECT" 



Contact Your Nearest Commodore Dealer Today . . . 

You'll Be So Glad You Did! 





Distributed By: 

nniUIDIITPD rV^ ^'^ ^\ 300 W. Marlton Pike 

UUIVIHUICK (^^^y! (y^ Cherry Hill, New Jersey 08002 

MARKETING services inc. (Gogj 795-9480 



Commodore 64 is a trademark of Commodore Electronics L.mited 

Script 64 is a trademark of flichvale Telecommunications Circle No. 41 
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LEARNING CENTER 




TRS-80C 



Texas Instruments 



Features: 
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Mode 10 Atari Painting Program 

by Paul Swanson 

A simple drawing program that lets you 
use nine colors 

Word Detective 

by Bob Tripp 

Figure out why, in this word game, 
the computer accepts some words and 
not others 

Lo-Res Shape Drawer 

by Doug Denby 



Draw enlarged versions of hi-res shapes on the lo-res screen 
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Mode 1 Atari Painting Program 



Dy Paul $waQ8«n 



The program in the accom- 
panying listing can be 
entered and used to create 
screen displays with up to nine 
different colors on your screen. 
Included are options for loading 
and saving pictures on disk, and 
functions may be easily added 
to the program to expand its 
capabilities. 
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Also, the pictures stored on the diskette can be 
loaded and used by other BASIC programs so that 
you can incorporate your drawings in your 
programs without having to decipher all the PLOT 
and DRAWTO commands required. 

After you enter the program, save it on cassette 
or diskette using either SAVE or LIST. If you alter 
the program substantially, LIST it to disk or 
cassette, enter NEW, then ENTER the program 
again. This clears the variable table and a few 
other things that make the program run more 
efficiently. Actually, that is good practice when 
altering any significantly sized program. 

This month Part I explains how to operate the 
program so that you can type it in and know how 
to use it. Next month. Part II will explain in detail 
how the program operates and how you can add 
your own functions to it. 



Entering the Listing 

Most of the program can be entered with no 
explanation — just enter it as it is listed. 
However, there are a few lines in the program that 
contain control codes and control codes do odd 
things to printers. Therefore, the listing was made 
using a special lister program that converts each 
control code to a form that is printable — a 
number enclosed in angle brackets. Consult 
Appendix C in your BASIC Refeience Manual for 
the conversion to keystrokes. 

When entering control codes, you most often 
use CTRL and a letter key. For example, < 1 > is a 
CTRL-A. Note that <0 > is a CTRL-comma. 
These codes all have special symbols that print 
out on the screen, like the heart that prints out 
when you enter CTRL-comma. 

There are a few control codes that require the 
ESC key. These correspond to the screen and 
cursor controls. For example, the up arrow lists as 
< 28 > ; press the ESC key once, then press the 
CTRL-up arrow. For < 27> , just press the ESC 
key twice. The control codes that require the ESC 
key tend to complicate entering the listing. 
However, with a little trial and a lot of error, 
things will start to make sense. 

Using angle brackets can create confusion since 
BASIC uses them for greater than and less than. If 
there is confusion on any angle bracket, first 
check to see if the brackets are enclosed in 
quotation marks. If they are, the number is a 
control code; otherwise it is an angle bracket 
indicating greater than or less than. 

There is one screen control code that will not 
print in angle brackets because it isn't a code that 
requires the CTRL key. Instead, it appears as a 
right brace and is actually a clear screen code 
misinterpreted by the printer. In line 22 the first 
symbol after the quotation mark is this right 
brace. To enter, press ESC once, then press SHIFT 
with CLEAR. You should get an arrow that points 
up and left. 
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Running the Piogiam 

Once you have typed the listing in and SAVEd 
it, type RUN and hit RETURN. The program will 
begin a rather lengthy initialization routine. After 
15 seconds, the entire screen will turn black 
except for one small, blinking dot in the center. If 
you have trouble seeing the dot, turn the 
brightness up on your television. This dot is the 
cursor and it marks where you are on the screen. 
To move the cursor, use the joystick. The cursor 
will move in a direction corresponding to the 
direction in which you push the stick. Next, hold 
the trigger button down while you move the 
joystick. If everything is typed correctly, you 
should be able to see that the joystick controls 
cursor movement and the trigger controls the 
depositing of color. 

Mode 10 

The mode 10 graphics mode has the most 
flexible variety of colors but it also has a strangely 
shaped pixel, or dot of color. The pixel in mode 
10, as in the other so-called GTIA modes, is long 
horizontally (there are only 80 of them across the 
screen), but short vertically (192 of them from top 
to bottom). Since the timing in the program 
depends on the number of dots to move, rather 
than actual distance, horizontal movement 
appears to be about four times faster than 
vertical movement. 

Although the cursor movement responds to the 
diagonal positions of the joystick, the resulting 
line does not appear at 45°. This is another effect 
of the odd pixel shape. The diagonal joystick 
position produces a line that travels four units 
horizontally for each unit vertically. 

Other Colors 

There is more to this program than just that 
dull reddish line on the screen! There are eight 
foreground colors in addition to the black 
background. You can chose any one of them for 
your "paintbrush." 

Push START. A multicolored bar should appear 
on your screen and, after a second or two, a white 
arrow and the abbreviation COLR under the bar. 
This is the selector for your paintbrush color. It is 
initially pointing to the left of the colored bar, 
which is the position to select the background 
color. This can be used to erase mistakes or to 
"cut out" holes in solid shapes. Push the joystick 
right or left to position the arrow under the 
color you want and press the joystick trigger 
button. The drawing in progress reappears on the 
screen and you can now draw with the new color 
you selected. 

Each of the eight colors plus the background 
color can be changed to any one of 128 colors. 
When you change any one of the colors on the bar, 
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all that you have drawn using that color will 
change to the new color. To see how this works, 
press SELECT. The screen looks exactly like the 
one to select the paintbrush color except the 
abbreviation under the arrow is CHGE instead of 
COLR. Use the joystick to place the arrow under 
the color you want to change and press the trigger. 

A longer bar of colors will now appear on the 
screen. There are sixteen in all, including black for 
the background (black will produce all of the grey 
shades from black to white). For this example, 
move the HUE arrow to under one of the blue 
colors, then press the trigger button. 

On the next screen, using an arrow labelled 
LUM, you can select the luminance, or brightness, 
of the hue you chose. Since you chose blue 
because you are following this example, the top 
third of the screen all around the bar should be the 
darkest shade of blue. Because dark blue does not 
show up well on a black background, try choosing 
a lighter blue by moving the arrow over to the 
eighth shade, and pressing the trigger button. 
Notice that all of the lines you drew in that dull 
red color changed to a light blue. If you select 
another color for the first color on the bar, all of 
the lines will change to the new color. 

One note about the luminances concerns the 
differences in modes. The luminance bar appears 
to give you a choice of 16 luminances, but mode 
10 can support only eight — the even numbered 
luminances. If you select an odd-number, it will 
be rounded down to the next even number. To 
determine the luminance number, start with zero 
for the position of the arrow when the luminance 
screen first appears. This looks like it isn't 
pointing to a box, but like the other screens it is 
pointing to the selection that is being used to 
color the background of that section of the screen. 
Add one for each block to the right. The above 
example selected eight, but nine would give the 
same result because nine would round down to 
eight, which is the next lower even number. 

One more choice that will affect screen colors 
is increment. You may have increments of 1 or 2. 
An increment of I is normal — the cursor moves 
one dot location at a time. An increment of 2 
causes the cursor to move two dots at a time, 
putting a dot in every other dot location. This can 
be used to create shading effects (it was used to 
create the picture of the cylinder) or to combine 
Lip to four different colors in one area to get the 
effect of extra colors. Much experimenting is 
required to understand the possibilities that occur 
when using an increment of 2 in combination 
with the other features of this program. 

Other Options 

Press the OPTION key for the "Help" screen. 
This will give you a list of all the functions of this 
program. The ones on the left side have been 
e.vplained. The ones on the right use the keyboard 
kcvs. R, L, and C help you create solid objects on 
the screen 
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To see how the fill function works, first move 
the cursor to the left of the lines you have created 
on the screen. Any movement of the joystick will 
cause the "Help" screen to disappear and the 
drawing to return. Move the cursor to the left and 
up almost to the highest part of your drawing. 
Now press the R key. Then try drawing a line 
straight down by holding the trigger button with 
the joystick toward you. Continue until you have 
gone a line or two below the lines on the screen. 

The "fill right" function fills in the space to 
the right of the cursor position with the selected 
color. The fill area stops when it reaches either a 
dot of the same selected color or, as you saw at 
the bottom, the edge of the screen. Try moving 
the cursor to the right of your drawing and use the 
L key for a left fill. The same thing should happen 
except that the fill lines go left instead of right. 

Notice that the television sends out beeps 
while the right or left fill function is in effect. 
This is to warn you that if you hit the trigger your 
cursor is going to shoot out a line instead of a dot. 
To return to the single dot mode, press C . The 
beeping should stop and you will be back in the 
initial mode. 

The last option left on the "Help" screen is 
the load/save option. The program is set up to 
load and save on disk, but it can be modified to 
use a cassette if that is what you have. It should 
work the same way except the file name request 
must be replaced by cassette commands. This 
modification is explained in Part II. 

Pressing D will cause everything to stop on the 
screen for a few seconds, which means that the 
cursor will stop blinking. After that brief pause, 
the screen will be in the normal text mode and it 
will display a three-item selector entitled "Disk 
Transfers." The options are save, load, or return 
to the picture. Press I to save your picture on 
disk; press 2 to load one that you have previously 
saved. In either case you will be asked for the file 
name. This must be in the correct form for disk 
files — up to eight characters plus (optionally) a 
period followed by up to three characters. All 
characters must be upper-case letters or numbers. 

When the load or save is complete, the disk 
transfers menu will reappear. If you loaded a 
picture, the new picture is now the "cur- 
rent" picture. 

Save your pictures under different names 
because there is no checking in the program. If 
you name the picture with the same name as 
another file on the disk, the picture will replace 
the other file. When you do save a picture, a copy 
remains in memory as the "current" picture. The 
only way to change the "current" picture, other 
than drawing over it, is to load another picture 
from disk. 

Mode 10 Drawings 

The accompanying pictures show a few things 
that can be done with mode 10. Since there are 
nine selectable colors, as opposed to two or four 
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available in other map modes, shading can be used 
to effect depth. Mode 9 has more shading available 
1 16 shades in all) but has only one color. Mode 11 
has 16 colors, but they are all the same shade. 
Mode 10 allows you to select the hue and 
luminance of each of its nine colors. 

The block drawing (see figure 1) shows how 
depth can be simulated by colors. The explanation 
that follows tells how to draw a block like the one 
pictured. The dimensions are approximate, so 
don't bother counting pixels! 

To start the block, first push SYSTEM RESET 
and reRUN the program. That is the simplest way 
to clear the screen. Draw a line straight up as tall 
as you want the block. Next, draw one to the left 
about the same length. Now press R and draw a 
line down as far as the bottom of the first line. 
With the fill on, this should be easy to see. When 
done, press C to cancel the fill. 

Move the cursor over to the lower right corner 
of the box plus one dot to the right. This will be 
the beginning of the drawing of the side of the 
box. Press START to choose another color. Move 
the pointer to the second color on the bar, which 
is a light pink, and press the trigger button. 

The next part may be a little difficult for 
anyone not experienced in Atari games. The 
bottom of the side of this box is a diagonal line. 
Push the trigger down and position the joystick on 
the upper-right diagonal and draw a line as long as 
you want for the side of the box. If you've made a 
mistake in anything so far hit START, select the 
background color by pressing the trigger without 
moving the joystick, and draw over your mistake 
to correct it. 

At the end of the diagonal, draw a line straight 
up. This line should be the same length as the 
sides of the front of the box, but just approximate 
that for now; corrections can be made later. 

Bring the cursor to one pixel right of the upper- 
right corner of the front of the box to start the top 
edge of the side. Do not draw when you are 
moving the cursor to that point (don't hold down 
the trigger) . Next, press R again to start the right 
fill function. Draw a fill line down to where you 
started drawing with this color — the lower-right 
corner of the front of the box. Actually, you 
should stop one pixel before that or you will get a 
pink line all the way to the edge of the screen. If 
that happens, leave it for corrections later. 

Return to the upper end of the line from which 
you just filled (next to the upper-right corner of 
the front of the box). Leave the right fill on [do 
not press C yet). Draw a diagonal up and to the 
right and you will get a filled in triangle to form 
the top of that side of the box. Do not go beyond 
the rightmost part of your picture if your line was 
too short. 

Cancel the fill now by pressing C. Move the 
cursor around using the trigger to place any dots 
you may have missed during that last fill. Next, 
press START and press the trigger to select the 
background color. Use the joystick and trigger to 

(Continued on page 71) 
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Listing 1 

10 REM »»» MODE 10 PAINTER »»» 
12 REM »»» PROGRAM »»» 
li REM »»» »»» 

16 REM »»» Designed by »»» 
18 REM »»» Paul S Swanson »»» 
20 REM »»» »»» 

22 ? ")<29><29><29> MODE 10 PAINTER 

PROGRAM" 
2i ? " FOR ATARI COMPUTERS" 
26 ? : ? "Prograjn by Paul S . Swanson" 
28 ? :? :? "Initializing..." 
30 REM +++ INITIALIZATION +++ 
iO REM — JOYSTICK READ TABLE — 
50 DIM JOY(15,l),A$(2) 
60 FOR RDG=1 TO 15:F0R DIR=0 TO ItREAD JOY: JOY(RDG,DIR)=JOY: 

NEXT DIR:NEXT RDG 
70 DATA 0,0,0,0,0,0,0,0,1,1,1.-1.1,0,0,0,-1,1,-1,-1,-1, 

0,0,0,0,1,0,-1,0.0 
80 REM — POSITION STRINGS — 
90 REM — ON IK BOUNDARY — 
100 DIM X$(l):A=ADR(X$):B=INT(A/1024+l)»102i:DIM XX$(B-A-1): 

PMSTAHT=B/256 
110 REM — DISPUY LISTS — 
120 DIM HELPDL$(64),SEU)L?(64) 
130 REM — SCREEN AREAS — 
liO DIM HELPSC?(256),SELSC${256) 
150 REM — INITIALIZE DL'S — 
160 HELPDL$="ppppppppB<0> <0><2><2><2 

><2><2>A" 
170 SELDL$="ppppppppO <0><0><15><15><15 

><15> <15>£A" 
180 ADBSETUP=5000 

190 A=ADR(HELPDL?):GOSUB ADRSETUP:HELPDL$(LEN(HELPDL$)+1)=A$ 
200 A=ADR(SELDL?):G0SUB ADRSETUP:SELDL?(LEN(SELDL$)+1)=A$ 
210 REM — INITIALIZE SCREENS — 

220 HELPSC$=" ":HELPSC$(256)=" ":HELPSC$(2)=HELPSC$ 
230 SELSC$="<0><0><0><0><0><0 

><0><0>" 
2i0 FOR 1-17 TO 255 STEP 17 
250 FOR J=l TO 2:SELSC$(LEN(SELSC?)+1)=CHR$(I).-NEXT JrNEXT I: 

SELSC$(39,'40)=»<0><0>" 
260 SELSC$(256)=" ";SELSC$(il)=SELSC$ 
270 REM — PUT SCREEN ADDRESSES 

INTO DISPLAY LISTS 
280 A=ADR(HELPSC$) :GOSUB ADBSETUP : HELPDL$ ( 10 , 11 ) =A$ 
290 A=ADR(SELSC$):GOSUB ADRSETUP:SELDL$(10,11)=A$ 
300 HEM — INITIALIZE PLAYER2 — 
310 DIM PL2$Cl28) 

320 PL2$="<0>":PL2$(128) = "<0>":PL2$(2)=PL2$ 
330 HEM — HELP SCREEN TEXT — 
3iO HELPSC$(l,iO) = "<U><li><li><li><li 

XliXliXliXliXliXliXli 

> HELP SCREEN <li> <li> <li> <li> <H 

350 HELPSC$(il,80)="0PTI0N - HELP screen |R Fill 

right " ~ 

360 HELPSC$(81,120)="SELECT - Color Seleotlon|L_ Fill 

left " ~ 

370 HELPSC$( 12 1,160) = "START - Change Pen Color|C Cancel 

fill " 
380 HELPSC$(l6l,200)="l,2 - Increment [D 

load/save " 
390 FOR 1=1 TO LEN(HELPSC$):N=ASC(HELPSC$(I)):N1=(N>27): 

N=N-N1»128 
392 N=(N-32)»(N>31 AND N<96)+(N+M)»(N<32)+N» 

(N>95)+N1»128:HELPSC$(I,I)=CHR$(N):NEXT I 

iOO HEM SET UP MODE 10 SCREEN 

ilO GRAPHICS 10 

i20 REM USE RANDOM COLORS 

i30 C0L=25:F0R REG=70i TO 712 

iAO POKE REG,C0L:C0L=C0L+25:NEXT REG 

.i50 POKE 70't,0 

i60 REM — DEFINE CONSTANTS — 

•470 C0NS0L=53279 

i80 CBASE=70i 

,490 DMACTL=559 

500 GRACTL= 53277 

510 HP0SPl=532i9 

520 PMBASE=5'4279 

530 SIZEP1=53257 

5iO BEGIN=1000 

550 KB=76i 

560 GTIA=623 

570 NMIEN=5^286 (Continued on next page) 

600 REM — INSTALL DLI ROUTINE — 
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Listing 1 Continued 

610 RESTORE 7000:L0C=1536 

620 READ N:IF N<256 THEN POKE LOG, N:L0C=L0C+1: GOTO 620 

630 POKE 512,0:POKE 513,6 

640 REM — ALTERNATE SCREENS — 

650 DIM ALTSCl$(256),BaFF$(8192) 

660 ALTSC1$=" < > " :ALTSC1J(256) =" < > " : 

ALTSC1J(2)=ALTSC1$ 
670 FOR 1=1 TO 240 STEP 40;ALTSCl?(I,I+23)=SELSC$(I,I+23) : 

NEXT I 
900 REM — OTHER DIMS — 

910 DIM RC0L(9),F|(12),Q?(40),FILE$(14),LINE$(80) 
920 REM — INITIALIZE COUNTERS, ETC. 
930 X=39:Y=96 
940 UNDERCimS0R=0 
950 CURSORFLAG=0 
960 CUHS0RC0UNT=0 
970 SELCOLOR=1 
980 FLASHCOUNT=0 
982 INCREMENT=1 

990 REM «»♦ »»» 

992 REM »»♦ MAIN PROGRAM TEXT »»» 
994 REM »»» »»» 

996 REM — READ JOYSTICK/CONSOL — 
1000 STK=STICK(0) :CUHSORCOUNT=CURSORCOUNT+1:IF CURSORCOUNT 

<4 THEN 1060 
1002 IF FILLFLAG=0 THEN 1040 
1010 FLASHC0UNT=6-FLASHC0UNT 

1020 SOUND 0,60,10,FLASHC0UNT;F0R DELAY=1 TO 2: NEXT DELAY 
1030 SOUND 0,0,0,0 
1040 CURSORFLAG=l-CURS0RFLAG:C0L=UNDEHCURS0R+CURS0fiFLAG; 

IF C0L>8 THEN COL=0 
1050 COLOR C0L:PLOT X,Y:CUHS0RC0UNT=0 
1060 IF STK015 OR STRIG(0)=0 THEN 1080 
1070 SWITCH=PEEK(C0NS0L):IF SUITCH07 THEN 4000 
1072 IF PEEK(KB) < >255 THEN 3000 
1074 GOTO BEGIN 
1080 POKE 77,0 

1110 COLOR UNDEHCURSOR:IF STRIG(0)=0 THEN COLOR SELCOLOR 
1120 PLOT X,Y 

1130 REM MOVE CURSOR ROUTINE — 

1140 X=X+JOY(STK,0)»INCREMENT:Y=Y+JOY(STK,1)»INCREMENT 

1150 X=X-INT (X/80 ) »80 : Y=Y-INT(Y/192)»192 

1160 LOCATE X,Y,UNDERCURSOR 

1170 CURSORFLAG=O:CURSORC0UNT=4:IF FILLFLAG=0 OR STRIG(0)=1 

THEN GOTO BEGIN 
1172 REM — FILL ROUTINE — 
1180 X1=X: COLOR SELCOLOR 
1190 Xl=Xl+FILLFLAG»INCREMENT:ir Xl>79 OR XKO THEN 

GOTO BEGIN 
1200 LOCATE X1,Y,TESTEND: IF TESTEND=SELCOLOR THEN GOTO BEGIN 
1210 PLOT X1,Y;GOTO 1190 
2990 REM — 

2992 REM — KEYBOARD INTERPRET ROUTINE 
2994 REM — 
3000 N=PEEK(KB);PDKE KB,255:IF N=40 THEN FILLFUG=1: 

GOTO BEGIN 
3010 IF N=0 THEN FILLFUG=-1:G0T0 BEGIN 
3012 IF N=31 OR N.30 THEN GOTO 8000 
3020 IF N=18 THEN FILLFLAG^O-.GOTO BEGIN 
3030 IF NO 58 THEN GOTO BEGIN 
3040 GOSUB 20000 

3050 GRAPHICS 0:? " DISK TRANSFERS":? 

3060 ? " <1> SAVE PICTURE ON DISK" 
3070 ? " <2> LOAD PICTURE FROM DISK" 
3080 ? " <3> RETURN TO CHRHENT PICTURE":? 

3090 ? "PRESS NUMBER OF SELECTION—"; 

3100 CLOSE #3:0PEN #3,4,0, "K; ":GET *3,N:CL0SE #3 

3110 N=N-4a:IF N<1 OR N>3 THEN 3100 

3120 GOTO N»100+3100 

3200 ? "} SAVE PICTURE ON DISK":? :DIRECTI0N=8: 

GOSUB 10000:? "SAVING PICTURE" :TRAP 40000 
3210 FOR 1=0 TO 8:? l(l3;RC0L(I) ;NEXT I 

3220 FOR 1=1 TO 8160 STEP 80:? #3;BUFF$(I,I+79) :NEXT I 
3230 CLOSE #3: GOTO 3050 
3300 ? "} LOADING PICTURE FROM DISK":? :DIRECTI0N=4: 

? : GOSUB 10000:? "LOADING PICTURE" 
3310 FOR 1=0 TO 8: INPUT #3,RC0L:RC0L(I)=RC0L:NEXT I 
332c FOR 1=1 TO 8160 STEP 80;INPUT #3, LINE?: BUFF? (I, 1+79 )= 

LINES: NEXT I 
3330 CLOSE #3: GOTO 3050 

3400 GRAPHICS 10:F0R 1=0 TO 8:P0KE I+CBASE,RCOL(I) :NEXT I 
3410 FOR 1=0 TO 8190 STEP 256:A=USR(ADR(Q$),BUFF+I,SCREEN+I) : 

NEXT I 
3420 LOCATE X,Y,UNDERCURS0R:G0T0 BEGIN 
3989 GOTO BEGIN 



3990 REM — 

3992 REM — FUNCTION KEY INTERPRETER 

3994 REM — 

4000 FOR 1=1 TO 7:I=PEEK(C0NS0L):NEXT I : GOSUB 5020: 

MODERES=PEEK(GTIA) 
4010 ON SWITCH GOTO BEGIN.BEGIN, 4100, BEGIN, 4200, 4300, BEGIN 
4100 POKE GTIA,0:A=LEN(HELPDL$):POKE 560,ASC(HELPDL$(A-1) ) : 

POKE 561,ASC(HELPDL$(A)) 
4102 IF PEEK(C0NS0L)<>7 THEN 4102 
4110 IF STICK(0)=15 AND PEEK{KB)=255 AND PEEK(C0NS0L)= 

7 THEN 4110 
4120 POKE GTIA.MODERES: GOSUB 5030: GOTO BEGIN 
4130 GOTO BEGIN 
4140 IF STRIG(0)=1 THEN 4120 
4150 GOTO 4l40 
4200 A=LEN(SELDL$):POKE 560,ASC(SELDL$(A-1) ) :POKE 561, 

ASC(SELDL$(A)) 
4210 A=ADR(ALTSC1$) : GOSUB 5000:SELDL$(10,11)=A? 
4220 MSG=6010:HAXSEL=8: GOSUB 5040:COLNO=SELECTION 
4230 A=ADR(SELSC$):GOSUB 5000:SELDL$(10,11)=A$:C0LSAV= 

PEEK ( CBASE+8 ) : POKE CBASE+8 , 8 
4240 POKE GTIA,192:MSG=6020:MAXSEL=15:GOSUB 5040 
4250 POKE CBASE+8, SELECTI0N»16:C0LUSED=.SELECTI0N 
4260 POKE GTIA,64:MSG=6030:MAXSEL=15:G0SUB 5040 
4270 POKE CBASE+8, COLSAV:COLUSED=C0LUSED»16+SELECTION 
4280 POKE CBASE+C0LNO,COLUSED:GOT0 4l40 
4300 A=LEN(SELDL$):POKE 560,ASC(SELDL$(A-1) ) :POKE 561, 

ASC(SELDL$(A)) 
4310 A=ADR(ALTSC1$);G0SUB 5000:SELDL$(10,11)=A$ 
4320 MSG=6000:HAXSEL=8: GOSUB 5040 
4330 A=ADR(SELSC$): GOSUB 5000:SELDL$(10,11)=A$ 
4340 SELCOLOR=SELECTI0N:GOTO 4l40 
4990 STOP 
4992 REM +++ 

4994 REM SUBROUTINES 

4996 REM 

4998 REM Conv't A to address 

in A$ 

4999 STOP 

5000 HI=INT(A/256):L0=A-HI»256 

5010 A$=CHR$(L0):A$(2)=CHR$(HI):RETURfl 
5020 SHI=PEEK(561) :SLO=PEEK(560) :RETURN 
5030 POKE 56l,SHI:POKE 560,SL0:RETURN 
5040 RESTORE MSG:READ F$ 
5050 PL2$(50,56)="<8><2B>»I<8> <B> <8 

>":BASE=58 
5060 FOR 1=1 TO LEN(F?):N=(ASC(F?(l))-32)»8+57344 
5070 FOR J=0 TO 7:PL2$(J+BASE,J+BASE)=CHR?(PEEK(J+N) ) ;NEXT J 
5080 BASE=BASE+8:NEXT I 
5090 POKE NMIEN, 192: POKE DHACTL,42:POKE GRACTL,2: 

POKE PMBASE,PMSTART 
5100 POKE SIZEP1,0:SELECTION=0:POKE 512,0:POKE 513,6: 

MAXSEL=HAXSEL+1 
5110 POKE HP0SPl,SELECTI0N»8+72 

5120 STK=STICK(0):IF STK=15 AND STRIG(0)=1 THEN 5120 
5130 IF STRIG(0)=0 THEN POKE HP0SP1,0:PL2$(75)=PL2$(74) : 

RETURN 
5140 SELECTION=SELECTI0N+ CSTK=7 )- (STK=1 1) 
5150 SELECTION=SELECTION-INT(SELECTION/MAXSEL)»MAXSEL: 

POKE HPOSPl, SELECT I0N»8+72 
5160 SOUND 0,135, 10, 6:F0R DEUY=1 TO 50:NEXT DEUY: 

SOUND 0,0,0,0 
5170 GOTO 5120 
6000 DATA COLR 
6010 DATA CHGE 
6020 DATA HUE 
6030 DATA LUM 
7000 DATA 72, 169,14, 141,19, 208, 169, 0,141,10, 212, 141,27, 208, 

141,26,208,104,64,256 
8000 INCREMENT=32-N:G0T0 BEGIN 
10000 ? "ENTER FILE NAME - MAX. 8 CHAfiACTEHS:" 
10010 INPUT F$ 

10020 IF LEN(F$)<1 THEN 11000 
10030 TRAP 11000 
10040 FILE$="D:";FILE$(3)=F$ 
10050 OPEN #3, DIRECTION, 0, FILE J: RETURN 
11000 ? "}ERR0R - NOT A VALID NAME":F0R 1=1 TO 300:NEXT I: 

CLOSE #3: GOTO 3050 
20000 QJ="hh<133>0h<133>Nh<133>ah 

<33>1 <0>HlN<l45>P8<0>Pw'": 

BUFFJ(8192)="<0>" 
20010 DLIST=PEEK(560)+PEEK(56l)*256:SCREEN=PEEK(DLIST+4)+ 

PEEK (DLIST+5 ) »256 : BUFF=ADR (BUFF? ) 
20020 FDR I«0 TO 8190 STEP 256:A=USR(ADR(QJ) ,SCREEN+I, 

BUFF+I):NEXT I 
20030 FOR 1=0 TO 8:RC0L(I)=PEEK(I+CBASE):NEXT I 
20040 RETURN 

(Note: Underlined text indicates inverse video) 
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erase any mistakes and "clean up" your drawing. 

The last part of the box is the top. Start at the 
pixel just above the upper-left corner of the front 
of the box. Use START to select the third color. 
This should be purple. Don't worry about shading 
and colors at this point as they will be changed 
after the box is drawn. Draw a diagonal up and to 
the right from this point. Extend it at least as far 
up as the diagonal at the other end of the top of 
the box. Move the cursor to the pixel just above 
the top of the leftmost edge of the side of the box. 
Press L to start the left fill and draw a diagonal 
line up and to the right as far as the rightmost 
edge of the side of the box. Use START to get the 
background color to correct any errors and to erase 
the overrun of the left edge of the top of the box. 

Now is the time to choose the colors. As in the 
picture, the top will be the brightest, then the 
front, and the side will be the darkest. Also, you 
need to lighten the background and make one of 
the other colors black so that you can put a 
shadow on the screen. 

Press SELECT and press the trigger to select 
the background first. When the 16 colors appear, 
press the trigger again to choose black. For the 
luminance, move the arrow over two boxes and 
press the trigger to select a slightly lighter 
shade of grey. 

For the first color, which is the front of the 
box, select color 15 by moving the arrow one box 
to the left, which will cause it to "wrap" to the 
right edge. Select the eighth luminance box for 
this. The second color corresponds to the side of 
the box. Select the same hue with a luminance of 
four. For the third color, which is the top of the 
box, select the same color with a luminance of 
twelve. Lastly, select the fourth color, which 
hasn't yet been used, as black with a luminance 
of zero. 

Use START to "load your brush" with this 
fourth color to plot out the shadow. Move the 
cursor down to just right of the lower -right corner 
of the front so that it is over the first pixel to the 
right of the corner that is in the background color. 
Draw a line from here to the right as long as you 
want the shadow. Be sure to leave some room to 
the right of this point for a diagonal line that will 
be drawn next. ^^ 
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From this point, draw a diagonal line up and to 
the right to parallel the bottom of the side of the 
box. Since you are estimating, it is better to make 
this line a few dots too long than too short. From 
there, draw a horizontal line to the left until you 
reach the box itself. 

To fill the shadow, push R for right fill, then 
draw along the edge of the box down to where you 
started outlining the shadow. Press C to cancel 
the fill. 

The basic box is now complete. Use the 
START function to select the colors needed to 
make any touch-up corrections to your box before 
you go on. 

Dressing It Up 

The box in the picture is dressed up with 
letters and an indication of shading toward the 
edges of the sides. Only five of the nine colors 
were used to build the basic box. Use these and 
the other four, selected any way you want, to put 
letters and shading on the box. 

You can also outline a table on which the box 
can sit. First, outline the box and shadow with the 
color of the table, then draw the outline of the top 
of the table, using the fill commands in the proper 
places to extend the color of the table across the 
screen. Use a darker shade of that color for the 
sides and/or legs of the table. 

Next Month 

Now that you have used this painter program, 
you can probably think of some extra functions 
that you want to add to improve it. The program 
was designed to allow additions. Next month Part 
n explains how the program works using all three 
of the GTIA modes as well as custom display lists, 
screen images in strings, and a player. The 
description of the program shows where extra 
functions can be added and suggests a few. Play 
with the program this month so that you are 
familiar with its functions, and make sure you 
have this copy of MICRO handy when next 
month's arrives! 

Bulletin Boards 

MODE 10 Atari Painting Program may be down 
loaded from one of the following bulletin boards: 

• Atari Message and Information Service |AMIS|, 
Cambridge, MA (617) 497-9054. 

• Boston Bullet, Boston MA (617) 266-7789. 

• AMIS North Shore, Lynn MA (617) 595-0211. 

itMCftO 



Paul Swanson, our Atari columnist, has published articles in 
several microcomputer magazines and has authored a book on 
disk techniques. You may contact him at 97 Jackson St., 
Cambridge, MA 02140. 
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PRINTERS 

SMITH COnONA 

Can on S50.00 Factory Rebate! 

TP-1 $499.00 

TractQf Feed $129.00 

Ultrasonic I Typawntei . . ..$439.00 

C. ITOH (TEC] 

Gorilla $209.00 

Prowriter S510P $379.00 

Prowriter8510S $579.00 

Prowriter IIP .,$699.00 

Prowriter ll-S $749.00 

Siarwnler FiO-40 $1259.00 

Printmaster Ft 0-55 $1649.00 

OKIOATA 

Call tot price and information of 

OKIOaTA 82A. 83A. 84|Parallel|, 

84(Serial|. 92 A 93. 

EPSON 

Call For price and intormation on EPSON 
RXaO. MX80. MXaOrr.FXSOAIMXIOO. 

loa 

MicroPrism $649,00 

132 (Fully Configured) -.,.$1599.00 

aO (Fully Con(iQuf«d) $1399. OO 

Call lor other contigurations. 
STAR 

Gemini 10 $339 00 

Gemini 15 $489.00 

Serial Board $75.00 

OAlBYWniTER 

2O00 {Latter Quality) $1 149,00 

Tractor Feed S109.00 

CSIABLO 

620 $999-00 

630 $1769.00 




©TeleVideo 




TERMINALS 

910 $559.00 

91 2C $689. OO 

930C $739.00 

925C $719. OO 

950 $929. OO 

coMPUTens 

aoOA $1259.00 

802 J2649.00 

802H $4695.00 

3O6/20 $4949.00 

81 6/40 $8999.00 

S03 $1949 (XJ 

1602G $3399.00 

1603 CALL 

SEC 

COMPUTERS 

60OO CALL 

eOOIA $669.00 

a031 $669,00 

a012 $549.00 

8801 CALL 

PRINTERS 

a023 $419 00 

7710/7730 $2249.00 

3510/3530. $1549.00 

MONITORS 

JB-1260 $119-00 

Je-1201 $149.00 

JC-1212 $299.00 

JC-12-202 .$299-00 

JC-1 203 $549.00 



Call on Eagle 8 Bit & 16 Bit 
Computers & Software 

MOOEMS 

HAYES 

Smart $219.00 

Smart 1200(12fXl Baud) ... $519 00 

Chronograph $199.00 

MicTomodem 100 $309,00 

Micromodem II $279. OO 

Micromodem llfwith term) . . . $299.00 

Smart Com II $99.00 

Smart 1 200e CALL 

NOVATION 

J-Cat $T19.00 

Cat $144.00 

D-Cat $159.00 

103 Sman Cat $189.00 

Apple Caf II $279.00 

103/212 Smart Caf $439 .OO 

212 Apple Cat 11 S609.I30 

Apple Cat II 31 2 UP9rad*. . . . $309.00 
ANCHOR 

Mark I (RS-232) $79.00 

Mark II {Atari) $79.00 

Mark ;M (T.l.-99» $109-00 

Mark IVfCBM-PET) $1 25.00 

Mark V (Osborne) $95.00 

Mark VI (IBM-PC) $179.00 

Math Vtl (Auto Ans./AutD Dial]... $99.00 

TRS-60 Color Computer $99.00 

9 Volt Power Supply $9.00 

Mark VIII CALL 



MONITORS 

AMOEK 

300G $159.00 

300A $169,00 

310A $169.00 

Color J $279.00 

Color I plus 299.00 

Color II $439-00 

Color III .$349.00 

SMC 

12AU 12 ■ Graen $79.99 

1401 13" Color (Mid-Res) ,..$369.00 
9191 U 13" Composite $329. OO 

TAXAN 

RGB 1 (Hi-Res) $299.00 

RGB 1)1 $499.00 

12 N Green $119.00 

12 A Ambar $125.00 

ZENITH 

ZVM 121 $95.00 

ZT- 1 Terminal $369.00 

U.S.I. 

Pi 1 , 9" Green $99.(X) 

Pi 2. 12" Green $119.00 

PI 3, 12" Ambar ..$159-00 

Pi 4. 9" Amber $139.00 

1400C 14" Color $299.(X) 



PANASONIC 

JR200U32K Pars. Compwter . ..$309.00 

MONITORS 
TR-12012"Hi-Re8Grean ...$159.00 
CT-ia010" Dual Mod* Color... $299.00 

DT-D1000 10" RGB $349.00 

0T-D1 300 1 3"RCB/Comp09. . . . S429.00 



NEC 

aSBOPniNTEP... SI 949 

PERCOM^ANOOM 

anivES 

5</<" 160K Disk Drive $249.00 

5V." 320K Disk Drive $299.00 

AMOEK 

31 OA Amber Monitor $169.00 

Amdisk III (3' Drive) $499. IX 

OXr Plotter $599.00 

Color II $439.00 

AST 

Mega Plus 64 $339.00 

aUBIE 

PC Keyboard $219.00 

BOFTWARE 
MicnaPro WoidStar/Ma(IMei^)e..$3 1 g.oo' 

I. U.S. Easywritar II $249.00 

I. U.S. Ea&yspeller $1 29.00 

Peach Package (GL/AP/AR) . . . $419.00 

PROFESSION Al_ 
SOFTWARE 

PC PlusfWord Processing) . . . $319.00 

CONTINENTAL 

SOFTVVARE 

1slCI*9aMait/FormL*rar ...$89.00 

The Home Accountant Plus ...$t09.00 

SYNAPSE 

File Manager $1 19.00 

PFS APPLE ISM 

File $89.00 $9900 

Report $89,00 $B9.00 

Graph $89,00 S99.(X) 

Write n/a $99.00 

REAOY FORMS 

1"or2"Addrea« LabtafTract. Feed).. $9.95 
1 5" Report Paper (Tract. Feed). .. $24.95 
aVi'BlnkWbt Pa QerfTiact.Feed). .$19.95 
8'A "Blnk Env(Tracl.Feed). . . . $ 1 4.95 



SANYO 

MB1 000 Computer $1599.00 

' INCLUDES FREE SOFTWARE! 

MicroPro. WordStar. Calcstar. 

Mail Merge A Report Star, 

MB 1M Addon Drive $539.00 

5500 Letter Quality Printer . .$699.00 



TIM EX 

SINCLAIR 

1000 




$39.35 

I6K Mamorv Module $44.95 

Vu-Calc $17.95 

Check Booh Menager $13.95 

The Organizer $14.95 

TheBudgeter $13.95 

Stock Option $14.95 

LoaffA Mortgage Amortiier ., ,$12.95 
Mindware Printer $1 09.00 

ORBYTE SOFTWARE 

Graphica ST 2.99 

Home Budgstar SI 2.99 

Home invtntorY SI 2.99 

Income Tax $14,99 

Me9a Mind $15.99 

Selvo S12.99 

The Quiz $12.99 

Words SI 2 .99 



^S commodorf 



:sH^;^K;S!Si8«'Wf"'jte».:i,.je 



1 520 Color Pnnter/PloMer ,, .$1 69.00 
1525 80 Column Printer ,., $339,00 

1530 Dataaette $69.00 

1 541 Sin9le Disk Orive S339.00 

1 600 VIC Modem $95 .00 

1610 VIC Term 40 $49.00 

1650 AD/AA Modem $159.00 

1701 14 ■ Color Monitor. ..$269.00 

1311 Jorsticka(each) $5.99 

13J2 Paddles $11 .99 

1110 VIC 8K $42.00 

1111 VIC 16K $69.00 

1011 RS232 Interface $42.00 

1211 Super Expander $53.00 

1906 Super Alien $23.00 

1910 Radar Rat Race $23.00 

1917 VooDoo Castle $29.00 

1922 Cosmic Cruncher $35.00 

1923 Gort $29. 00 

1924 Omega Race $30 .00 

IIOV1C 20 Reference Guide... $15. 00 
CBM 64 Reference Guide. .. .$1 8.00 

EASY BUSINESS 
SERIES 64 

Easy File $79.00 

Easy Finance $39,00 

Easy Mail $39, OO 

Easy Script $79.00 

Word Machine/Name Machine. , $23,00 

PROORAh^MEP 

SERIES S4 

Assembler $39,00 

Logo $79-00 

Pilot $79.00 

Pet Emulator $25.00 

Screen Editor $25 .00 

Video/ Music Support $39.00 

ARTANO MUSIC 
SERIES S4 

Music Machine $25.00 

Music Composer $25.00 

Meta Music I $79.00 

COMMERCIAL OATA 

Motor Mouse/20 $23.00 

Centipode/20 , $23 .00 

Froggee( 20/84) $23.00 

CREATIVE aOFTWAHE 

Astro Blitz $32.00 

Qiack Hole $32.00 

Trashman $32.00 

Home Finance $27,00 

Home Inventory $13.00 

UMI 

Amok . , $30.00 

Meteor Bun. $40.00 

Alien Blitz — .,.$30.00 

Viferm A $16.00 

The Alien $16.0O 




CBM 64 
S363 

VIC SO 
S99. 



. S5SS.OO 



e4K Upgrade Kit 



. SSSB.aO 



sose S849 

9000 S993 

B-1 Se S-76 3 

B-ase.. sees. 

403a SS99. 

406 4 S563 

2031 SS99 

aaso S949. 

aasa si i 99. 

9060(5Meg.HD) ...sia 
9090 (7. 5 Meg MO)... sei99. 

40a3 S379 

8023 S56 9. 

6400 Let Oual. Print, . , S1 : 



OO 



SpBll tVlaaitar S14! 

ZRam addsCP/M Ae4K. . . S549. 

Silicon OFfica S749. 

Calc naault S1S9 

Ths Manager £209. 

TheSofcRarr^ S'129. 

Jinaam SOOC/6 4 CALL 

AOAI eOOCBM to Pari lnL_.XS9.oa 
A0A1450CBM toSer lnt..X9S.CX3 

PROFESSIONAL 
SOFT\A/AnE 

Power $79.00 

Into Pro ... S199 OO 

Word Pro 2 Pius $159.0O 

Word Pro3 Plus SI99,0O 

WOfdPro4Plus $299, OO 

Word Pro 5 Plus, $299 00 

Administator $379.0O 

Word Pro 64 S69 95 

Spell Checker CALL 

ICARDCO 
VIC aa/CBM BA 

Light Pen S32,0O 

Cassette Interlace $29 00 

Parallel Printer Interface $64,00 

3Slote«pana.lntertace<2Oon>v).,.$32.0O 

6SIOI Expans lntarface(2Oonry|...$79.00 

HES 

Shamui (ROM) $29 OO 

Protector (ROM) S32.0O 

Robot Panic (ROM) $29.00 

Pirates (ROM) $29. OO 

HES Writer (ROM) $29.00 



Call on our Large Selection of 
VIC 20 & C-64 Software, such as: 

EPVX, Micraspec, Ouick Brou/n Fox and 
Kansas City Software. 
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PC-1 saa 

POCKET COMPUTER 

PC1 ssa sss.ao 



CE150 Printer, Plotter and 

Cassette Interface Unit $172 00 

CE152 Cassette Recorder ...$62,00 
CE1 558KRam Expans. Mod. . $94.00 
CE125 Pnnter/Micro Cass,., $129,00 
Statistics Pack ,. $49 00 
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In PA call [71 7]3a7-3575, Dept.TI 5 , 477 E. 3rd St., \A/illiamsport:, PA 1 770T 



iNTEFiiMATiofMAL OROERS: AN Shipments outsjde the Continental United States must be pre-paid by certified check only. Include 3% (minimum 
$3.00) shipping and handling. EOUCATioiMAi-OiscauiMTS: Additional discounts are available from both Computer Mail Order locations to qualified 
Educational Institutions. APO £ PPO: Add minimum $5.00 shipping and handling. 
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FRANKLIN 




Call for price and information 

on the NEW FRANKLIN 

Computers! 

Disk Drives, Software and 

System Specials 

ALSO AVAILABLE! 



IVUCPO-SCI 

□ IBK □niVEB FOR 
APPLE & FRAN KIN 

A3 S269.00 

A40 $349.00 

A70 S4S9.00 

C2 ControllBf $79.00 

C47 Conifollsr $89.00 

RAIMA OISK DRIVES 

Elite 1 plus (Appls/Franhlin) CALL 
1000 (Atari) CALL 

AMIDEK OISK DRIVES 

Amdisk [. 3" Mini Dish for 
Apple HI 4 Me S229.00 




SYSCOM 

4BK Color Computsr 
APPLE COMPATIBLE 

ssgg- 

VISICORP 

for Appla.lBIM & Franklin 

ViiidBi $189.00 

Visilils S189.D0 

Viaiplot $159.00 

Vistterm $89-00 

Visitrend/Plot $239.00 

VisiSchedule $229. OO 

Deahtop Plan $189.00 

Vi3icalc(Applell,C8M.IBM) .--$179.00 
Visicorp prices for IBM may vary slightly. 

BROOERBUNO 

Apple Panic $23.00 

Davids Magic $27.00 

Star Blazer $25.00 

Arcade Machine $34.00 

ChoplrHer $27. OO 

Serpentine $27. OO 

IfMFOCOMI 
DMdline(AP..JBM,AT.AC-e4| ....$35.00 

Star Cross $29. OO 

Zorh I, II or Ml $29 00 

M1PC 
Bubdisk (1 28K Non Volitare) . . $649.00 

AXLON 

Apple/Franklin 128K nam ...$299.00 

Apple/franklin Ram Dish. . .$729.00 

KRAFT 

Apple Joystick $44. OO 

CONTINENTAL 

SOFTWARE 

Tax Advantage (Apple/Atari). . . $4S.OO 

Home Accnt. (Apple/ Atari). . .$59.00 

1 stCJ. Mail/Form Lett wt Apple) . . .$79.00 

The Book of Apple $1495 

The Book of Atari $14 95 

The Boohof Apple Graphics . .$14.95 



□ ISKOniVES FORATAPI 

AT88-S 1 $399.00 

AT88-A1 $299.00 

AT88-S2 $649.00 

RFD40-S1 $549.00 

HFD 40- A1 $349.00 

HFD 40-33 $889.00 

HFD44-S1 $679.00 

RFD 44-S2 $999.00 

FLOPPY OISKS 

MAXELL 

MD l(Box of 10) $33.00 

MD [IfBoi of 10) $44.00 

FD I (8-) $40.00 

FD 11 [a ■ DD) $50.00 

VERBATUM 

S'/.'SSDD $26. OO 

SV." DS DD $36. OO 

ELEPHANT 

5V*'- SS SD $18.99 

S'A- SS DD .,$24.99 

5V*" DS DD $29.99 

HEAO 
Disk Head Cleaner $14.95 

aiRlUB 

Bandit* (Appla) $28.00 

Beer Run (Apple) $24.00 

Free Fall (Apple) $24.00 

Sneakers (Apple) $24. OO 

Snake Byte (Apple) $24.00 

Fast Eddie (Alan) ,.$21.00 

Turmoil (Atari) $21-00 

Deadly Ouch (VIC) $21.00 

INTEPFACES & 
ACCESSORIES 

80 Column Apple Card $159.00 

Apple Parai. Printer Interface . . .$80.00 
Atan S50 to Paral. Printer Cable . . . $29.00 

flS232-RS232 Cables $29.00 

Cefitronic« Paral.- Paral. CaUM . . . $29.00 
Call on IBM, Osborne, Daisywriter. 
Atan. Commodore, Apple and Franklin 
Interfac* Cards, Cablesand Accasaorles. 



HEWLETT 
PACKARD 




HP"75.,.S"7aS. 

HP41C $148.00 

HP IOC $52.00 

HP lie $69.00 

HP 12C $90. OO 

HP 15C $90.00 

HP 16C $90.00 

HPtL Module $99.00 

HPIL CasMfte or Printer. . ..$359. OO 

Card Reader $144, OO 

Extended Functions Module.. .$64.00 

Time Module $64.00 

Malhmatics Pac $26.50 

Real Estate Pac $40.00 



HOME COMPUTERS 



A 

ATARI 



400-1 6K S99. 

Our Price S149.00, Get S50.00 rebate direct from Atari! 

600XL-1 GK $1 49. 

800-48K S389. 

Our Price S489.00, Get SI 00.00 rebate direct from Atari; 



1SOO-64K. 



S449. 




Our Price S549.00, Get $100.00 rebate from Atari! 



810 Dish Drive ,. S419.00 

Inhome Keyboard/Atari 400. . . $39. OO 

1010 Program Recorder $74.00 

1 020 40 Column Print/ Plot . . .$269.00 
1 025 80 Column Printer .... $489.00 
1027 Lattef Quality Printer . . , $299 OO 
1D50 Double Oenaity Drive. . . $379.00 

830 Acoustic Modem $159.00 

850 fnlerface Module $1 89.00 

CX40 Pair JoyatJcha $18.00 

CX4t8 Home Manager Kit ...$89.00 

CX419 Bookkeeper Kit $195.00 

CX482 Educator Kit $1 39.00 

CX483 Pro9rammer Kit .$54.00 

CX488 Communicator Kit . - , $239.00 

CX7101 Entertainer Kit $89.00 

Invitation loProgrammins I ...$18.00 
Invitation to Programming II . . .$30.00 
Invitation to Programming III . . . $20.00 

4002 Basic Language $43. OO 

4003 Aasemblar Editor $47.00 

8121 Micro Asa«mbler $89.00 

8138 Micro Son $89.00 

405 Pilot (Edu.) $10S.0O 

4018 Pilot (Home) $73.00 

8036 Atari Writer $79.00 

404 Word Processor $119.00 

5059 Viaicalc $159.00 

ATARI 

Pacman $33.00 

Centipede $33.00 

Defender $33.00 

Galaxian $33.00 

Missile Command $39.00 

Star Raiders $33.00 

Caverns o( Mars $33.00 

Dig Dug $33. OO 

Donkey Kong CALL 

E.T. Phone Home $39.00 

Eastern Front (1941) $39.00 

QlX $33.00 

Superman III $39. OO 

Star Tru* $33.00 

Aateroida $39.00 

BiBlictball S29.00 

Computer Chess $29.00 

Juggles House $23.00 

My First Alphabet $39.00 

APX 

Te*t For maner $ 1 8.50 

Family Budgaler $ 16.50 

Easterrt Front $34.00 

Family Caah $18.50 

Jukebox $13.30 

Downhill $ 1 8. SO 

Outlaw $ 1 8.50 

Holy Grail $ 34 .00 

Player Piano $18.50 

Keyboard Organ $18.50 

Number Blast $13.50 

Frogmaster $ 1 8.50 

747 Land Simulatar $18.50 

Bumper Pool $13.50 



ON-LINE 

Jawbreaker $ 2 7 .00 

Sottporn $27.00 

Wizard and Princess $29. OO 

The Neit Step $34.00 

Mission Asteroid $22.00 

Mouskaitack $31 .00 

Frogger $31 .00 

Cross Fire (ROM) $36.00 

Some ON-LINE Products are also 

available for Apple A IBM. 

Call for information! 

SYNAPSE 

File Manager BOO plus $69.00 

Chichan (ROM) $34.00 

Picnic Paranoia (ROM) $34 00 

Claim Jumper (ROM) $34.00 

Slime (ROM) $34.00 

Shamus(ROM) $34.00 

Protector (ROM) $34.00 

Dodge Racer (C/D) $36.00 

Nautilus (C/D) $26.00 

Shadow World (C/D) $26.00 

Survivor (C/D) $26.00 

Drelbs(C/D) $36,00 

Necromancer (C/0) $26.00 

Pharoh's Curse (C/D) $36.00 

Fort Apocalypse (C/D) $36.00 

Assembler $30.00 

DATASOFT 

Pacific Coast Highway $25. OO 

Canyon Climber $35.00 

Tumble Bugs $1 9 00 

Shooting Arcade $1 9.00 

Clowns and Balloons $35.00 

Graphic Master $30.00 

Graphic Generator $13.00 

Micro Painter $35. OO 

Text Wizard $59.00 

Spell Wizard $39.00 

Bishop's Square $25.00 

Sanda of Egypt $25. OO 

Moon Shuttle ..$35.00 

Zexxon $29.00 

Basic Compiler $59 OO 

ALIEN 

Atan Voice Box $119.00 

Apple Voice Box $149 00 

M1EMORY 

Axlon 33K Ram $65.00 

Axlon 48K Ram $109.00 

Axlon 128K flam $299.00 

lntec32K Board $74. OO 

lnl«c48K Board $99 OO 

Intec 64K Board (400 only). . . $1 49.00 
JOYSTICKS 

WIco Joyatick $24 95 

Famous Red Ball , $36.95 

Apple Trackball $59.00 

Atari/VIC Trackball $55-00 

Apple Adaptor $16.00 
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CBS 

K-razy Shoot Out $29 OO 

K-fazy Kntters $29.00 

K-razy Antics $39.00 

K-star Patrol $29.00 

Slick Stand $3 99 

EPYX 
Crush, Crumble A Chomp ...$34 00 

Crypt ol the Undead $34 00 

Curse of Ra .$16.00 

Datestones A Ryn $16.00 

Invasion Orion $19.00 

King Arthur's Heir $34.00 

Morloc's Tower $16.00 

Rescue at Rigel $24.00 

Ricochet $16.00 

Star Warrior $39.00 

Temple of Apshai $29 00 

Upper Reaches of Apshai $16.00 

SPINNAKER 

Snooper Troops » T $34.00 

Snooper Troops » 3 $34 OO 

Face Maker $24. OO 

Story Machine $24.00 

Delta Drawing $45 OO 

Rhymes and Riddles $31.00 

Kindercomp $31 OO 

POKLAN 

Wizard of War (ROM) $3400 

Deluxe invader (ROM) $39 00 

Gort (ROM) $34 00 

FIRST STAR 

Astro ChBsa $25 OO 

BIQ B 

Miner 49er $35 OO 

OAMESTAR 

BaiB Buggies $24 95 

Football $24.95 

BUOOECO 

Raster Blaster $24.95 

l_J.K. 
Latter Perfect 4O/8OC0I. Disk.. .$109.00 
Letter Perfect 40 Col. ROM . . .$1 79.00 
Latter Perfect 8OC0I. ROM ...$179.00 
Oata Perfect 4O/8OC0I. Disk . . . $99.00 

Mail Merge $31 95 

CALL FOR APPLE/LJK PRODUCTS 

BIT 3 
ao Col. Card tor Atari 800. . . .$249.00 

INTEC 
Real Timfe Clock $39 00 

We also stock software by: 
Adventure International, 
Eduware, Creative Soft- 
ware, Dorsett Educational; 
lOSI, Romox and Artworx. 
Call for details and prices 
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computer mail order >^est 

SOO-64S-331 1 

In NV call [7aS]SBB-SG54, Dept:. 71S , P.O. Box 6689, Stateline, NV BS^^S 

No risk, no deposit on COD. orders. Pre-paid orders receive free shipping within the UPS Continental United States with no waiting period for certified 
checks or money orders. Add 3% (minimum $3.00) shipping and handling on all C.O.D. and credit card orders. Larger shipments may require additional 
charges. NVand PA residents add sales tax. All items subject to availability and pricechange. NOTE: We stock manufacturer'sand third party software for 
most all computers on the market. Call today for our new catalog. 
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Ybu Pick The Disk System, MegaFiex Controis Iti 



r 



WITH SOFTDRIVERS FOR 
A FLEXIBLE FUTURE! 

MEGAFLEX— a universal 
floppy disk controller and 
modern alternative to the 
Apple drive system offering 
increased storage, im- 
proved reliability and . . . 
FLEXIBILITY. 

Enjoy megabytes of 
online storage with your 
choice of micro, mini, or 
maxi drives— or even eiVlb 
with the Amiyn cartridge 
pack! Ideal for high- 
capacity storage now, 
Winchester-disk backup 
later. 
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BRIDGE THE APPLE 
FORMAT BARRIER! 

The MEGAFLEX diskette 
does what Apple's 
cannot— read and write 
diskettes from other 
computers! Software- 
controlled industry-stan- 
dard IBM 3740 or System 
34 type formats allow the 
MEGAFLEX library of refor- 
matting software to read 
and write Altos, Radio 
Shack, Osborne, and IBM 
PC diskettes. (Call for the 
latest software details.) 
MORE STORAGE, MORE 
UNIVERSAL FEATURES, LOWEST COST 
MEGAFLEX with 8" maxi or high density 5.25" 
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The MEGAFLEX secret is to autoboot soft- 
drivers that match the needs of your drive system, minis gives you 1 .2 Megabyte of formatted data per 
All hardware functions are software-controlled, diskette for 8 times the file and data size! 



MEGAFLEX can match new drive capabilities with- 
out hardware changes. Drive-dependent ROMs 
have been eliminated. 

APPLE tin OF COURSE!! 

MEGAFLEX is compatible with BASIC, CP/M, 
Pascal, VISICALC, SOS and DOS-emulation on the 



MEGAFLEX offers flexible software choices: 

• data rate (250/500 Kbits per second), 

• single and double density recording, and 

• single/double sided drive operation (max 
4 drives). 

MEGAFLEX has the lowest chip count of any 



Apple III, Apple II, Franklin Ace and Basis. All Ian- controller today! This means less power, a cooler 
guage features and operating system commands Apple and better reliability. 
(LOAD, BRUN, etc.) are standard. If you can oper- Lowest price, highest performance, that's 
ate Apple drives you can op- k a mg^^M A Btt^.^ViViH^"' '^^^^'^'~^^' 

erate MEGAFLEX! Your ^^L ^mWwmmkM^^^u^^M^^ 11722 sorrento valley road 

Apple software will run ^'^th- /flgj^gft/^ f | ^^ feiS " "0101 ' 

out modification too. a aivision of sva twx 910-335-2047 apple two SDG 
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Word Detective is a game that challenges you 
to figure out why the computer accepts some 
words and not others. By typing in different 
words, you attempt to figure out what rule the 
computer is using to decide whether or not it likes 
a word. The game introduces the concept of the 
computer handling letters and words, as well as 
numbers. Detailed listings and instructions show 
you how to modify the program to use rules that 
you create. 

Programming Concepts 

While we normally think of computers as 
devices for dealing with numbers (referring to 
them sometimes as 'number crunchers'), they also 
can deal effectively with alphabetic material. One 
of the major uses of microcomputers today is as a 
word processor — a machine that can replace the 
typewriter and offer many kinds of support to the 
writer. Word processors can provide editing 
features such as character insert, character delete, 
line insert, line delete; they can move blocks of 
data, and more. Spelling-checking programs can 
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eliminate most spelling errors. Text can be stored 
on cassette or disk, sent from one computer to 
another, and printed out in various formats. 
BASIC has a number of commands to assist in 
dealing with non-numeric information, and the 
most important ones are demonstrated in WORD 
DETECTIVE. 

Processing ALPHABETIC Data 

A CHARACTER is a single unit of information 
such as a letter (A d X), or a digit (0 1 2), a 
punctuation mark (! ? '), a mathematical symbol 
( = > < -I- ), a special symbol ($ # [ @), or various 
graphic symbols and control characters. BASIC can 
handle characters in a number of ways: 

1 . It can reference them directly, as in a PRINT 
string, with a string of characters enclosed in 
quotation marks: PRINT "THESE ARE 
CHARACTERS". 

2. It can refer to them as a variable: C$ = 
"LETTER". 

3. It can place them in arrays: A$(3) = "7", etc. 
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The STRING Concept 

The VIC can work with a single letter, a word, 
a sentence, or a large portion of text as a single 
entity. This collection of letters (which can 
include digits and most special characters) is 
called a 'STRING'. BASIC keeps track of strings 
separately from other types of information, such as 
floating point and integer numbers. It names them 
with a one- or two-character name, like the 
numbers, but adds the dollar sign '$' to show that 
a string of characters is being referenced. Examples 
of string names include A$, Z4$, and BT$. A 
string may have no characters, in which case it is 
called a NULL string. A string may have a single 
character or may be very long, often limited only 
by the amount of memory the system contains. 

In WORD DETECTIVE we demonstrate several 
different ways to handle strings. An examination 
of some of these methods should provide a basic 
understanding of the string processing capabilities 
of BASIC. 

120 INPUT Z$ : IF LEN(Z$) = THEN 120 

The INPUT statement accepts a string of 
characters from the keyboard until the RETURN 
key is pressed. It stores the entire string, which 
may be no characters (just a RETURN) or a NULL 
string, a single character, or many characters. In 
line 120, the string that has been typed is given 
the name Z$ so that it may be referenced by other 
parts of the program. 

The LEN function determines the LENgth of 
the string that was INPUT into Z$. In line 120 it 
is used with an IF statement to check for a NULL 
or empty string. If the length of Z$ = 0, then no 
word was typed and the program tries again to get 
a word. If any characters have been typed, then 
the length of Z$ would not be zero. 

130 IF Z$ = "THE RULE IS" THEN GOSUB 3000 
:X = R:GOTO 110 

The entire contents of the Z$ string may be 
tested by comparing it to a string that is specified 
by a pair of quotation marks. If the Z$ string 
matches the string "THE RULE IS" exactly, 
character by character, then the subroutine at 
3000 will be executed. If there is not an exact 
match, then the next instruction will be executed. 

In addition to dealing with the entire text 
string, as in the INPUT, IF, or PRINT statements, 
BASIC can deal with portions of the total string. 
To work with part of the string, BASIC needs 
functions to isolate that part of the string that is 
of interest. Three functions are provided for this 
purpose: 
1 . LEFTS (Z$,N), which will isolate the LEFT N 

characters of the Z$ string; 
76 MICRO 



Word Detective Listing 



OH V$="I" THEN JiO 
OR V$=»Y" THEN JiO 
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RE.M GREEN FOB HATE 



:HEM RED FOR LOVE 



REM WORD DETECTIVE 

10 GOSUB 9000 : REM INIT 

ICO ElEM MAIN PROGRAM 

110 R=INT(HND(l)*5)+l:IF R=X THEN 110 

120 INPUT Z$ : IF LEN(Z$)=0 THEN 120 

130 IF Z$ = "THE RULE IS" THEN GOSUB 300O:X=R:G0T0 110 

l-iO IF Z$ = "THE RULES ARE" THEN 4000 

199 ElEH PROCESS NORMAL WORD 

200 J=0:D=0:V=0:C=0 
210 F$ = LEFT$(Z$,1) 
220 L$ = RIGHT? (Z$,l) 
230 L = LENCZ$) 
2-10 IF INT(L) AND 1 THEN J=l 
250 IF L = 1 THEN 290 
260 FOR K = 1 TO L 

270 IF MID$(Z$,K,1) » mD$(Z$,K+l, 1) THEN D = 1 
280 NEXT 

290 FOR K = 1 TO L 
300 V$ = MID$(Z$,K,1) 
310 IF V$="A" OR V$="E 
320 IF V$="0" OR V$="U 
330 C = C+1: GOTO 350 
3-^ V » V+1 
350 NEXT 

999 HEM SELECT TEST 

1000 ON H GOSUB 1100,1200 
1100 IF J"0 THEN 2000 
1110 GOTO 2100 
1200 IF L=<5 THEN 2100 
1210 GOTO 2000 
1300 IF C>V THEN 2000 
1310 GOTO 2100 
1400 IF F$<L$ THEN 2100 
1410 GOTO 2000 
1500 IF D^l THEN 2100 
1510 GOTO 2000 

1999 HEM CHANGE WORD COLC. 

2000 PRINT "[GU]";" ";"[GRN] 
2010 PRINT Z$;"[BLU]" 
2020 RETURN 

2100 PRINT "[CU]";" ";"[RED) 
2110 GOTO 2010 
3000 REM THE RULE IS 

3010 PRINT "[CD][BLX]RULE #";H:PRINT: GOSUB 3IOO 
3020 PRINT: PRINT "PRESS RETURN" 
3030 PRINT " TO CONTINUE: "; 
3040 INPUT Z$: RETURN 

3100 PRINT "[BLU]I HATE WORDS WITH[GRN] ": PRINT YJ(R-l) 
3110 PRINT "[BLU]I LOVE WORDS WITH[RED] ":PRINT XS{R-1); 
3120 PRINT "[3LU]": PRINT 
3130 RETURN 

4000 REM THE RULES ARE 

4010 PRINT "[CLR][BLK]WORD DETECTIVE RULES: [BLU] ": PRINT 
4020 FOR R = 1 TO 5: PRINT "[BLX]RULE #";R 
4030 GOSUB 3110 
4040 NEXT 
4050 GOTO 110 
9000 REM INITIALIZATION 
9010 DIM X$(4),Y$(4) 
9020 RESTORE- 
9030 FOR I = TO 4 
9040 READ X$(I),Y?(I): NEXT 
9050 PRINT "[CLR][BLK]WORD DETECTIVE" :PRINT "[BLU]" 

"IF I LIKE A WORD" 

" I MAKE IT[RED] RED[BLU] " :PRINT 

"IF I HATE A WORD" 

" I MAKE IT[GRN]"*GHEEN[BLU]":PRINT 

"FIGURE OUT MY RULE" 
BY TRYING DIFFERENT" 
WORDS.": PRINT 
9130 PRINT "WHEN YOU HAVE FIGURED" 
9140 PRINT " IT OUT, OR YOU GIVE" 
9150 PRINT " UP, TYPE:"" 
9160 PRINT "[BLK] THE RULE IS[BLU]" 
9170 PRINT " TO DISPLAY THE RULE." 
9180 PRINT:PRINT "TO DISPLAY ALL OF THE" 
9190 PRINT " RULES, TYPE:" 
9200 PRINT "[BLK] THE RULES ARE[BLU] " 
9210 R = RND(-TI) 
9220 RETURN 

10000 DATA "ODD NO. OF LETTERS", "EVEN NO. OF LETTERS" 
10010 DATA "5 LETTERS OR FEWER", "6 LETTERS OR MORE" 
10020 DATA "VOWELS => CONSONANTS", "VOWELS < CONSONANTS" 
10030 DATA "FIRST LETTER < LAST", "FIRST LETTER => UST" 
10040 DATA "DOUBLE LETTERS", "NO DOUBLE LETTERS" 
READY. 
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PRINT 



9060 PRINT 
9070 PRINT 
9080 PRINT 
9090 PRINT 
9100 PRINT 
9110 PRINT 
9120 PRINT 
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Products for Commodore, Atari, Apple, and others! 
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THE MONKEY WRENCH II 

A PROGRAMMERS AID FOR ATARI 800 

NEW AND IMPROVED - 18 COMMANDS 

PLUGS INTO RIGHT CARTRIDGE SLOT 




$59.95 



If you are a pereon who likes to monkey around with 
the ATARI 800, then THE MONKEY WRENCH II is 
for you!! Make your programming tasks easier, less 
time-consuming and more fun. Why spend extra 
hours working on a BASIC program when the 
MONKEY WRENCH can do it for you in seconds. 
It can also make backup copies of boot type 
cassette programs. Plugs into the right slot and 
works with ATARI BASIC cartridge. 
The MONKEY WRENCH provides 18 direct mode 
commands. They are: AUTO LINE NUMBERING - Pro- 
vides new line numbers when entering BASIC program 
lines. RENUMBER - Renumbers BASIC'S line numbers 
including internal references. DELETE LINE NUMBERS 
— Removes a range BASIC line numbers. 
VARIABLES - Display all BASIC variables and their current value. Scrolling — Use the 
START & SELECT keys to display BASIC lines automatically Scroll up or down BASIC pro- 
gram. FIND STRING — Rnd every occurrence of a string, XCHANGE STRING — Find every 
occurrence of a string and replace it with another string. MOVE LINES — Move lines from 
one part of program to another part of program. COPY LINES — Copy lines from one part 
of program to another part of program. FORMATTED LIST — Print BASIC program in 
special line format and automaticpage numbering. DISK DIRECTORY - Display Disk 
Directory. CHANGE MARGINS — Provides the capability to easily change the screen 
margins. MEMORY TEST - Provides the capability to test RAM memory. CURSOR 
EXCHANGE — Allows usage of the cursor keys without holding down the CTRL key. 
UPPER CASE LOCK — Keeps the computer in the upper case character set. HEX CON- 
VERSION - Converts a hexadecimal number to a decimal number DECIMAL CONVER- 
SION — Converts a decimal number to a hexadecimal number MONITOR — Enter the 
machine language monitor. 

In addition to the BASIC commands, the Monkey Wrench also contains a machine 
language monitor with 16 commands used to interact with the powerful features of the 
6502 microprocessor 
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VIC RABBIT CARTRIDGE 
AND CBM 64 RABBIT CARTRIDGE 



"High-Speed 
Cassette 
Load and Save!' 




$39.95 

(includes Cartridge 
and Manual) 



Expansion Connector 
ontheVICCart.ridge 



"Don't waste your Life away waiting to LOAD and SAVE 
programs on Cassete Deck." 

Load or Save 8K in approximately 30 seconds! Try 
it — your Un-Rabbitized VIC takes almost 3 minutes. 
It's not only Fast but VERY RELIABLE. 
Almost as fast as VIC Disk Drive! Don't be foolish — 
Why buy the disk when you can get the VIC Rabbit 
for much, much less! 

Easy to install — it just plugs in. 

Expansion Connector on rear. 

Works with or without Expansion Memory. 

Works with VIC Cassette Deck. 

12 Commands provide other neat features. 

Also Available for 20O1 , 4001 , and 8032 
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300/1200 Baud 

standard Terminal Communications Package 

■PFO-IOD OOA CP<D1>D2 BELL- (2:30 00 10: 14:36 

Don'l settle for non-standard Communications Protocol! 
Access Micro Net, Source. Bulletin Boards, Local Main- 
frame, etc. 

j • Compleie Pacliage - Includes RS232 Inter- 
i tace Board and softvtare (does nol include 
/ modem) 

*■ • Communicates in Industry Standard ASCII 
^ • Upload/Download lo/trom Disk 
• Automatic File Translation 
" Can be controlled Irom Keyboard or user sup- 
plied basic or macbme language program 

Specify 3.0 or 4.0 ROMS or 8032 Commodore Computer 
4040 Of 8060 or PEDISK II Disk or CBM64 on 1541. 

Price: $129.95 




ATARI AND PET 
EPROM PROGRAMMER 

Programs 271B and 2532 "^^^ ^^ 

EPROMs. Includes hardware 

and software. PET = $75.00- 

ATARI lincludes sophisticated 

machine language monitor) = 

$119.95 




PET BASIC SCROLL PROGRAM 

Scroll thru Basic Programs using cursor 
up/down keys. Specify computer. $6.00 on 
cassette, $9.00 on dislcette. 

65G02 MAE 

Same as our MAE but entianced for ttie new 
65C02 Opcodes. Turns your computer into a 
development system for the new ROCKWELL 
65C02 Microprocessor. $200.00 — Specify 
Computer. 

6800 CROSS ASSEMBLER 

A Cross Assembler based on the MAE that 
runs on the PET, Apple, or Atari but assembles 
opcodes for the Motorola 6800 microproces- 
sor. Turns your computer into a development 
system for the Motorola 6800 M icroprocessor. 
$200.00 — Specify Computer. 

ATARI and VIC Cartridges 

EHS can supply large quantities of ATARI and 
VIC Cartridges for software developers. If you 
need cartricfges, call for pricing. 




TRAP 65 

TRAP 65 is a hardware device that 

pluss into your 6S02's socket. Prevents 

execution of unifnptefnented opcodes 

and provides capability to extend the 

machines' Instruction set. 

For PET/APPLE/SYM. 

Reduced from $149.95 to $69.95 
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More than just an Assembler/Editor! 
Now for the "64" A . - « ,- 

MAE 



It's a 

Professionally 

Designed 

Software 

Development 

System 




for 

PET 

APPLE 

ATARI 

New 
Price 
$99.95 

Blast off with the software used on the space 

shuttle project! 

• Designed to improve Programmer Productivity. 

• Siinilar syntax and commands — No need to relearn 
peculiar syntaxes and commands wnen you go 
from PET to APPLE to ATARI. 

• Coresident Assembler/Editor — No need to load 
ttie Editor then ttie Assemble! then the Editor, etc. 

• Also includes Word Procassor, Relocating Loader. 
and much more. 

■ Options: EPROM Programmer, unimplemented 
opcode circuitry. 

• STILL NOT CONVINCED; Send tor frBe spec sheet! 



5% INCH son 

SECTORED DISKEHES 

Highest quality. We use them on 
our PETs, APPLES, ATARls, and other 
computers. $22.50/10 or $44.50/20 




Prownter Printer - Excellent dot matrix print Parallel = 
Serial = $600 00 IEEE = S589 00 



S489 00 



DC Hayes Smart MtxJem = S235 00 
DC Hayes Micro Modem II = S289 00 



Rana Disk Drive - 375 
Drive Controller - 114 



EPROMS 2716 = $4.502532 = $7.50 

Over 40 Commodore Programs by Baker (on 4040) = 



$25.00 



3239LindaDr. 
Wmston-Salem.N.C. 27106 
(919)924-2889 (919)748-8446 
Send for free catalog! 
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2. RIGHTS (Z$,N), which will isolate 
the RIGHT N characters of the Z$ 
string; 

3. MID$(Z$,M,N), which will isolate 
the MIDdle N characters of the Z$ 
string starting at the character in 
position M. 

Let us assume that the INPUT to the 
Z$ string was the word "SAMPLE". 

210 F$ = LEFT$(Z$,1) 

F$ is set equal to "S", the first 
character in "SAMPLE". The LEFTS 
function (Z$,l) says to take one char- 
acter from the left end of the string Z$. 

220 L$ = RIGHT$(Z$,1) 

L$ is set equal to "E", the last 
character in "SAMPLE". The RIGHTS 
function (Z$,I) says to take one 
character from the right end of the 
string Z$ . 

300 V$ = MID$(Z$,K,1) 

V$ is set equal to the character at posi- 
tion K in the string Z$: 'S' when K is I, 
'A' when K is 2, and so on up to 'E' 
when K is 6. The MID$(Z$,K,1) says to 
take one character from the K position 
in the string Z$. 

In the above examples, a single let- 
ter has been isolated from the entire 
string. Substrings (parts of strings) may 
be isolated in the same manner. The 
number 1 would be changed to the 
length of the substring that was to be 
isolated — 2 for two characters, 3 for 
three characters, and so forth up to the 
length of the string. 

Strings may be handled in arrays, 
just like numeric data. The array name 
must have a $ to indicate that the data 
is alphanumeric. 

9040 READ X$(I),Y$(I); NEXT 

This will READ the strings of DATA 
starting at line 10000 into two arrays, 

X$(I) and Y$(I]. 

10000 DATA "ODD NO. OF LETTERS", 
"EVEN NO. OF LETTERS" 

X$(0) will be set to equal "ODD NO. 
OF LETTERS" and Y$(0) will be set 
equal to "EVEN NO. OF LETTERS". 
These individual strings, which are 
the written rules for the game, are 
then output by referencing them in a 
PRINT statement. 
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PRINT 

WITHBJ' 

:PRINT 



'51 HATE WORDS 
:PRINTY$(R-1) 



After printing the 'canned' message 
"I HATE WORDS V^flTH", the PRINT 
Y$(R-1) statement will output the 
string referenced by R - 1 . For example, 
if R=l, then R-I will equal 0, and 
Y$|0) contains the string "EVEN NO. 
OF LETTERS" as shown above, and 
this is what will be printed. 

Program Description 

At line 10, the program goes to 
subroutine 9000 to initialize. The 
initialization procedure consists of the 
following steps: 

Line 9010 DIMensions two string 
arrays, X$ and Y$. 

Line 9020 RESTORES the DATA 
pointer for the following READ 
statements so that the READ will start 
at the first DATA statement. 

Lines 9030 to 9040 use a 
FOR... NEXT loop to READ the DATA 
statements into the string arrays 
dimensioned above. 

Lines 9050 to 9200 are simply a series 
of PRINT statements that display the 
operating instructions for the program. 

Line 9210 initializes the Random 
Number Generator [RND] by using the 
current time in the VIC built-in timer 
(TI) as the seed value. 

Line 9220 RETURNS the program to 
the mainline code. 

The mainline of the program, lines 
100 to 1000, uses the random number 
generator to select the current 'RULE', 
accept the word from the user, analyze 
the word for a number of character- 
istics, and then evaluate the word 
relative to the rule. 

Line 110 generates a random 
number and then makes sure it is not 
the same number as the previous 
number. If the new RULE number is 
the same as the old one, then another 
number is generated until a new RULE 
is selected. 

Line 120 accepts INPUT from the 
user into the string variable Z$. If the 
user hits a RETURN with no word then 
the LENgth of Z$ will be = and the 
program will restart by displaying the 
main instructions again. 

Line 130: If the user types 'THE 
RULES ARE', then the routine starting 
at line 4000 will display all of the rules 
on the screen. 

Line 200: The program comes here 
on any regular word. Each of four 

MICRO 



variables is set to an initial value of 0. 
The variables are; } for Odd or Even, D for 
Double Letter, V for the Vowel counter, 
and C for the Consonant counter. 

Line 210 uses the RIGHTS (Z$,l) 
function to get the leftmost (First) 
character of the string Z$ into the 
string variable F$. 

Line 220 uses the RIGHTS 
(Z$,l) function to get the rightmost 
(Last) character of the string ZS into the 
string variable LS. 

Line 230 uses the LEN(Z$) length 
function to get the length of the string 
ZS into the numeric variable L. 

Line 240 uses the INTeger function 
to get the integer portion of the length 
L, does a logical AND with the number 
1, and if the result is not zero (which 
will be the case for any ODD number) 
sets the J variable to 1 to be used . 
later in the program to determine if 
the string was an ODD or EVEN num- 
ber of characters. 

Line 250 simply tests for a single let- 
ter word that obviously could not have a 
double letter, and skips the next few 
lines on a single letter. 

Line 260 sets up a FOR... 
NEXT loop to test for a double 
character. The MIDS(ZS,K,1) portion 
of line 270 isolates one character in the 
word, the MIDS (Z$,K-fl,I) isolates 
the next character in the word, and the 
IF function tests to see if these two con- 
secutive characters are identical. If 
they are, it sets the double flag, D, to 1 
for later testing; if not, it leaves the 
flag alone. 

Lines 290 to 350 are a FOR... NEXT 
loop to count Vowels [A E I O U and Y) 
and Consonants (all non-vowels) in the 
word. Line 300 sets the VS string 
variable equal to the next character in 
the word. Lines 310 and 320 test for the 
vowels and line 340 adds one (1) to the 
V counter for each vowel found. Line 
330 adds one (1) to the C counter for 
any character that is not a vowel. 

All variables that are going to be 
used for the various RULE tests below 
now have been calculated: 

F$ is the First character 
L$ is the Last character 
J = for an odd number of character; 

= 1 for an even number of characte: 
L = the number of characters 
V= the number of vowels 
C= the number of consonants 
D= for no double letters 

= 1 for double letters 
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Line 1000 branches to a subroutine 
based on the number of the rule in R. It 
will go to subroutine 1100 on rule 1, 
1200 on rule 2, ..., 1500 on rule 5. 

Line 1100 tests for odd or even 
number of characters. If J = 0, which 
means that the word is disliked, it goes 
to line 2000 to display the word in green; 
otherwise the word is liked and goes to 
line 2100 to display the word in red. 

Line 1200 tests for the length to be 
greater than 5 and, Lf it is, goes to line 
2000 to turn the word green,- otherwise it 
goes to line 2100 to turn the word red. 

Line 1300 tests for more consonants 
than vowels and, if there are, goes to 
line 2100 to turn the word green. 

Line 1400 tests for the first letter of 
the word to be earlier in the alphabet 
than the last letter. If so, it goes to line 
2100 to turn the word red. 

Line 1500 tests for double letters. If 
there are double letters, it turns the 
word red. 

Line 2000 moves the cursor back 
one line to the typed word, writes two 
spaces to advance the cursor and 
remove the question mark, then 
changes the color to green. 

Line 2010 prints the word (Z$) in 
whatever color has been set, then 
changes the color back to blue. 

Line 2020 RETURNS, ends the 
subroutine, and returns to line 10000 
and the GOTO 120 statement. 

Line 2100 moves the cursor back to 
the word line and changes the color 
to red. 

Line 2110 goes to line 2010 to com- 
plete the output of the red word. 

Lines 3000 to 3040 handle the 
response when the user types 'THE 
RULE IS'. Line 3010 goes to subroutine 
3100, which prints the RULE. Lines 
3020 and 3030 print an extra carriage 
return and the message 'PRESS 
RETURN TO CONTINUE'. Line 3040 
waits for a RETURN from the keyboard 
and then RETURNS to the calling pro- 
gram at line 130. 



Lines 



handle the 
types 'THE 



4000 to 4050 
response when the user 
RULES ARE'. Line 4010 PRINTs a clear 
screen character (represented by the 
reverse heart character), sets the color 

to black (represented by the solid black 
box), then the message 'WORD 
DETECTIVE RULES:', and then 
changes the color to blue (represented 
by the reversed arrow). The next 
PRINT provides an additional blank 
line on the display. 
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Line 4020 uses a FOR... NEXT loop 
to output each of the five rules. It first 
PRINTS the color to black (solid box), 
the message 'RULE -', and then outputs 
the current rule number, R. 

Line 4030 goes to the subroutine at 
line 3 1 10 to output the "I LOVE. .." in- 
formation, a blank line, and returns. 

Line 4040 is the NEXT statement of 
the FOR... NEXT loop that began in line 
4020. On R values of 1 to 4 this state- 
ment will go back to line 4020. On R 
equals 5 (the last value specified in the 
FOR loop in line 4020) the program will 
go to the next sequential line. 



Line 4050 goes to line 110 to select 
a new random number for the next game. 

That's all there is to it. Word Detec- 
tive is a simple game and a simple pro- 
gram. If you study the program and 
fully understand it, then you are well 
on your way to understanding BASIC 
programming on the VIC-20. 
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The author may be contacted by writing to 
MICRO Magazine, P.O. Box 6502, 
Amherst, NH 03031. 




"PCWER 
laiLIIRE" 

Goodbye valuable data. Unless 
you have a Guardian Angel uninter- 
ruptable power source on duty. 

Guardian Angel switches to 150 
watts of backup power in 1/100 of a 
second or less while alerting you of 
blackout or brownout conditions. Its 
rugged 12V battery gives you up to 
six minutes (15 at half-rated power), 
enough to save your data and shut 
down your system if line power does 
not return. 

Guardian Angel is compatible with 
virtually every major microcomputer 
system, including Apple, IBM, H-P, 
TRS-80, Xerox, Eagle and Osborne. 
Its transient voltage suppressor 
also prevents system damage from 
power spikes. 

Guardian Angel simply plugs in 
between your power source and your 
microcomputer Its compact size 
permits either desktop use or out of 
the way placement. 

Protect your investment; see 
your R.H. Electronics 
dealer today about 
Guardian Angel 



Guardian Anger, with LED power status 
■^dicator. automatically saleguards daw 
lidm blackouts, brvwnouts lor just S595 
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RHELECTRONICS, INC. 



'Patents pending. UL listed. FCC approved. 240V/ ■ 
version available. Dealers and OEM inquiries inviti 
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^ HAVE you FLOWN 
YOUR ATARI 
TODAY? 



pavement, your pulse quickens, you' 

down, but watch it, you're pullii 

right! Brakes, brakes! Left mor 

You've stopped safely! Good jo 

The first real-time flight simulat 

for ATARI is now available frc 

AAMG Micro Software. Written e 

tirely in machine languaj 

there are four levels of difficuH 

landings in clear or fog; 

weather, landings with or w 

out instruments, and with 

without the real-time vie 

from the cockpit. Fir 

Flight! requires Ati 

400/800, 24K, 1 joy sti( 

and is offered on tape 

disk for the same si 

gested retail pri 

of $29.95. 




Imagine 
yourself 
at the con- 
trols of a 
small, single- 
engine plane, 
10,000 feet in 
the air, on your 
approach to the 
runway and safe- 
ty. You're running 
low on fuel, but 
your instruments 
show that you're on 
the glide path, and 
lined up with the run- 
way. It's a beautiful, sun- 
ny day, and you can see 
the airport in the distance, 
across the grassy fields. But 
the crosswind is tricky, and it 
will take all your skill to land 
safely. You're coming down 
now, and the runway is getting 
closer. A bit left, OK, now lower 
the power, fine, now put down the 
flaps. Pull the nose up a bit more, 
you're a little low. Watch the power! 
Don't stall. OK. Here comes the 
runway. You hear the squeal of tires on 
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F 

Flig 

is available 

your local dealer or d 

from MMG Micro Software. 

send check or money order to P.O 
131, Marlboro, N.J. 07746 or for Master( 
Visa, and C.O.D. deliveries call (201)431-3472. PI 
add $3.00 for postage and handling. New Jersey residents 



6% sales tax. 
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CS1 QUICK BROWN FOX $55.00 

The Word Processor of this decade! For the VIC-20 and C-64. 



Commodore 64 
$43500 

Plus you receive a free QBF 
Word Processor valued at 
$55.00 



® 



Write for 

FREE 
Catalog! 



VIC-20 

$8800 



® 



When you buy our 6 Game 
Pac or 6 Finance Pack $43.00 



C-64 Software 

Pet Emulator $27.95 

Editor Pac 67.00 

File Pac 32.36 

Account Pac 57.00 
Farm Management I 

(Agricultural Software) 47.25 

Home Budget 29.95 

Stock Investments 76.95 

Calc Result 140.00 
650Z Professional Development 

System 27.95 

Mail List 34.95 

Vic Easy Lesson & Easy Quiz 35.97 

Loan Calculator 15.95 

Data Files 14.95 

Researcti Assistant 2.0 28.00 
Total Label 2.6 (Mailing 

Lables) Tape 19.95 

Disk 22.00 

Total Time Manager 2.6 37.00 

Total Text (Word Processor) 2.6 40.00 



C-64 Games 

Flight 64 (Fligtit Simulator) 

Gunslinger 
Spellathon 
Motor Mania 
Renassance 
Vic Clowns 
Radar Rat Race 
Jupiter Lander 
Temple of Apshai 
Upper Reaches of Apshai 
Curse of Ra 
Sword of Fargoal 
Jump Man 



Tape 
Disk 



$13.95 
15.95 
13.95 
16.95 
25.95 
25.95 
25.00 
25.00 
25.00 
39.95 
16,95 
26.95 
19.95 
26.95 



VIC-20 & C-64 Hardware 



VIC-1541 
VIC-1530 
VIC-1515 
VIC-1010 
VIC-1311 

VlC-1312 



Disk Drive 
Datasette 
Printer 

Expansion Module 
Joystick 
Wico Joystick 
Game Paddles 
Telephone Modem 
Terminal 
Emulator (64) 

40x25 Terminal 
Emulator VIC 



347.00 

67.50 

334.95 

139.95 

9.95 

28.00 

19.95 

99.95 

Tape 9.95 
Disk 15.95 

40.95 



VIC-1210 VIC 3K Memory 
Expander Cart. 



34.95 



Plugs directly into the VIC'S expansion port. Expands to 
8K RAM total. 

VIC-1 110 VIC 8K Memory 

Expander Cart. 52.50 

8K RAM expansion cartridge plugs directly into the VI. 

CM1 02 24K Memory 

Expander Cart. 119.95 

VIC-1 01 1 A RS232C Terminal 

Interface 39.95 

Provides interface between the VIC-20 and RS232 tele- 
communications modems. Connects to VIC'S user port. 

PETSPEED — 

Basic Compiler for Commodore 140.00 

Vic Rabbit Cartridge 35.00 

CBM 64 Rabbit 35.00 

Star G-10 Printer 360.00 

Mura Modem 120.00 

Smith Corona TP-1 Printer 650.00 



CARDCO HARDWARE 

CARDBOARD 6 $87.50 

An expansion interface for the VtC-20. Allows expansion to 
40K or accepts up to six games. May be daisy-chained for 
more versatility. 
CARDBOARD 3 $35 95 

Economy expansion interface for the VIC-20. 

CARD "?" CARD/PRINT $76.00 

Universal Centronics Parallel Printer Interface for the 
VIC-20 or CBM-64. Use an Epson MX-80 or OKIDATA or 
TANDY or just about any other 

CARDETTE $30.95 

Use any standard cassette player/recorder with your 
VIC-20 or CBM-64. 

LIGHT PEN $29.95 

A light per with six good programs to use with your VIC-20 
or CBM-64. 

16K Memory Expander $50.50 

All CARDCO Products have a lifetime warranty. 



COMMODORE SOFTWARE 

VIC-1 21 1 A VIC-20 Super Expander $55.00 

Everything Commodore could pack into one cartridge — 
3K RAM memory expansion, high resolution graphics plot- 
ting, color, paint and sound commands. Graphic, text, mul- 
ticolor and music modes. 1024x1024 dot screen plotting. 
All commands may be typed as new BASIC commands or 
accessed by hitting one o( the VlC's special function keys. 
Includes tutorial instruction bock. Excellent tor all pro- 
gramming levels. 

VIC-1 21 2 Programmer's Aid 

Cartridge $45.99 

More than 20 new BASIC commands help new and exper- 
ienced programmers renumber, trace and edit BASIC pro- 
grams. Trace any program line-by-line as it executes, pause 
to edit. Special KEY command lets programmers redefine 
function keys as BASIC commands, subroutines or new 
commands. 



VIC-1 213 VICMON Machine Language 

Monitor $48.99 

Helps machine code programmers write fast, efficient 6502 
assembly language programs Includes one line assembler/ 
disassembler. 

VIC-20 Software 

for Business & Hotne Applications 
6502 Professional Development 

System $25.00 

Vic Forth (Advance Computer 

Language) 49.95 

Hess Mon (Mactiine Language 

Monitor) 
Hess Writer (Word Processor) 
Turtle Graptiics 
Total Label 2.1 



Total Time Manager 2.1 

Researcti Assistant 2.0 

Total Text 2.5 

Encoder 

Acct. Payable & Receivable 



Tape 
Disk 

Tape 
Disk 

Tape 
Disk 

Tape 

Tape 
Disk 



34 
34 
34 
17 
22 
28 
32 
28 
32 
30, 
34. 
29 
35, 



95 
95 
95 
95 
00 
00 
00 
00 
00 
00 
95 
00 
00 



VIC-20 Games 

Exterminator Plus (Excellent) S 

Anti Matter Splatter (Disaster) 
Rescue From Nufon (Great) 
Tank Wars (War Game) 
Simon (Great for kids) 
Dam Bomber (Avoid ttie enemy) 
Breakout 

Snack Man (Pac Man) 
Defender on Tri 

Amok Cart. 

Cassette 
Starfigtiter 
Torg 

Gridrunner 
Invasion Orion 
8K Backgammon 



TO ORDER: 
P.O.BOX 768 
WICHITA, KS 67201 
(316)263-1095 



Handling charges S2.00 

C.0.0. (Add S2.0C) 

Personal checks allow 3 week delivery 

VIC-30® is a registered trademark oi Commodore 

Prices subject to change 

Circle No. 47 



;17.95 
17.95 
12.95 
15.95 
13.45 
13.45 
7.95 
17 95 
17,95 
23.95 
19.94 
17.95 
15.95 
34.95 
20.95 
19.95 
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-Res 

SHApE 



Drawer 



by Doug Denby 



Ithough thaApiJie 
tit works onl^QinHf 



ihape system is very good, 
high-resolution screens. I 



irawing capabilities to 
I a normal shape table 
This can be useful 
when using font 
^screen in large 
limation, or 
Jarger form or 



If 



9u\i 



• \ 



w 



have expanded th\sh^i 
include drawing a S&ko 
on the low-resolutio&i 
when examining shapes^ 
tables to place messaged 
banner style, when doing^ 
when you want to see a sh 
in one of 16 colors 

The assembly code is desi, 
either Applesoft or Integer Bj* 
for Integer BASIC to substitute 
code (lines 60-62) for the beginnin' 
you want to use shapes with Integ 
Programmer's Aid ROM is necessary 
loading Integer BASIC into the languagl 
RAM Card) with the system master 
also loading the programmer's aid ROM ri 
into place. Many Apple owners are unawar^ 
these powerful routines. Integer runs faster t^ 
Applesoft (especially in graphics routines) beca^ 
of simple number crunching. More programmer; 
should be looking towards Integer BASIC as a 
programming language; the 64K RAM on the 
Apple //e will make it possible. 

Back to the lo-res shape-drawing utility. I 
designed this routine to examine, in detail, shapes 
from standard shape tables. The shapes I wanted 
to see were font (character) tables and I knew they 
were designed to start at the top left corner of the 
character and proceed down the screen in a zig zag 
fashion. I located the origin of the shape two dots 
from the top left corner of the lo-res screen. This 
is done in lines 64-67. You may wish to change 
this. The demo program POKEs different numbers 
to these locations to move the shapes around the 
screen. 

Because there is no method to check for scale 
and rotational factors, this routine runs much 
faster than the normal shape-drawing methods on 
the hi-res screens with either Integer or Applesoft 
BASIC. Animation could be performed effectively 
from BASIC on the lo-res screen by modifying the 
routine to start in a variable location that would 
be passed to the routine. (See the demo program.) 

The different sizes of dots and their proportions 



on the lo-res screen as compared to the hi-res 
screen made it necessary to place two vertical lo- 
res dots for each hi-res dot in the shape to reduce 
shape distortion. 

I did not include rotation or scale capabilities 
because they were not necessary. You can add 
them, but be careful of scale changes on the lo-res 
screen — the shape will already be quite large. I 
have made the screen wrap aroimd as it does on the 
high-resolution screen to prevent range errors and to 
be able to see the whole shape if it is in fact too 
large for the 40 x20 format of the lo-res screen. 

Standard locations are used for the pointers to 
the shape table and on-the-fly shape pointer. Color 
is set with the normal COLOR = command in 
either BASIC. 

The program was written on the ORCA/M 
assembler and is liberally sprinkled with comments. 
I located it at $4000, but you can locate it where 
you think there will be tree memory, 
k If you don't have an assembler, enter the 

\ monitor with a "CALL-I51". Type "4000:" and 
x\ enter the hex numbers in listing 3. It is not 
-. '^ "iiecessary to enter the line numbers after each 

' RETURN". Just type a ":" and continue. Be sure 

gave a space between the hex numbers. Check 
/ork often; a mistake requires retyping. Save 
^ram with "BSAVE DENBY, A$4000, L$ 

the same with listing 4, starting at 
Save it with "BSAVE SHAPES, A$6000, 

166." 

To use the routine, BLOAD it and BLOAD the 
shape table. Set the Graphics screen and the 
COLOR = . POKE the location of the shape table 
into 232 and 233 ($E8 &. $E9) as usual. These 
instructions work for either BASIC, but passing 
the particular shape in the table to the routine 
varies depending on which BASIC is being used. 

With Applesoft BASIC, the shape number must 
be passed directly to this routine. This is done by 
POKEing the shape number into the first memory 
location past the start of the routine. 

With Integer BASIC and the Programmer's Aid, 
the shape number is passed in the normal manner. 
See page 55 in the Programmer's Aid manual (Apple 
Part #A2L00I1). 
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POKE 16420,0: REM VERTICAL 

IF I = 2 THEN POKE 16420,20 

POKE 16424,0: REM HORIZOTAL 

C0LOR= J 

POKE 16385,1: REM SHAP NUMBER 

CALL 16384: REM DRAW SHAPE 

FOR J = 1 TO 5 

GOSUB 320: REM SNOWFLAKES? 

NEXT J 

POKE 16385,1 

POKE 16420,0: POKE 16424, C 

IF I = 2 THEN POKE 16420,20 

C0L0R= 0: CALL 16384: REM ERASE SHAPE 

GOTO 150 



Listing 1 



10 TEXT 


. HOME 


20 REM 


«»«««««tttt««tttt)(tt««tt««»tttt« 


30 REM 


» DEMO PROGRAM 


40 REM 


» FOR LO-RES SHAPE DRAWER 


50 REM 


» BY D. DENBY 


60 REM 


» COPYRIGHT BY MICRO INK 


70 REM 


» (C) MAY 1983 


80 REM 


#»»*##»##»#»#**#»»»##»#* 


90 D$ = 


CHR$ (4) 


100 PRINT D$"BLOAD DENBY" 


110 PRINT D$"BLOAD SHAPES" 


120 POKE 


232,0: POKE 233,96: REM 


130 GR 




140 PRINT "SHAPE 1 OR 2?": GET I 


150 C - C 


+ 2 


160 IF C 


> 39 THEN C = C - 39 



SET SHAPE TABLE LOCATION 



» 20) + 10) 

SET RANDOM VERT POSITION 

» 40) + 1) 

RANDOM HOHZ POSITION 



END 

POKE 16385,3 
330 Nl = INT (C RND (1) 
340 POKE 16420, Nl: REM 
350 N2 = INT (( RND (1) 
360 POKE 16424, N2: REM 
370 C0L0R= 3 

380 CALL 16384: REM DRAW SHAPE 
390 POKE 16385,1: REM SHAPE NUMBER 
400 POKE 16420,0: POKE 16424, C; REM 
410 IF I = 2 THEN POKE 16420,20 

420 C0LOR= 7: CALL 16384: REM REDRAW SHAPE TO COVER UP ANY ERASED PARTS 
430 COL0R= 0: HEM BLACK 
440 POKE 16420, Nl 
450 POKE 16424, N2 
460 POKE 16385,3: REM SHAPE NUMBER 
470 CALL 16384: REM ERASE SHAPE 
480 HOME 
490 RETURN 



HORZ AND VERT POSITION 



Listing 2 



0031 4000 A900 



« LOW-RES SHAPE DRAWING UTILITY 
» using Normal Shape Tables 

* Requires Programmer's Aid 
» if using Integer BASIC 

* No rotation or scale is taken 

* Screen wrap-around ia in effect 

* On entry: Accumulator = Shape 

» Uses ROM Routines wherever possible 

» Equates : 

GETPTH GEQU $D361 PA entry to establish shape 

pointer 
PLOT GEQU ?F800 Monitor ROM Lo-Res plot routine 



FP Shape Table pointer 
Normal shape pointer position 
Temporary vector stroage 
Current shape vector codes 
Vertical coordinate 
Horizontal coordinate 



ORG ?4000 

IDA if^OO Dummy number 

Applesoft needs to pass the shape number 
to the routine, but note that the PA 
has ttiis function built-in. 



SHPTR 


GEQU 


?E8 


SHAPE 


GEQU 


?U 


TEMP 


GEQU 


$05 


CODE 


GEQU 


TEMP+1 


VERT 


GEQU 


CODE+1 


HORZ 


GEQU 


VERT+1 



0037 

0038 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 
0048 
0049 
0050 
0051 
0052 
0053 
0054 



4002 A8 

4003 A5E8 
4005 851A 
4007 A5E9 
4009 851B 
400B 98 
400C A200 
400E OA 
400F 9003 
4011 E6IB 

4013 18 

4014 A8 

4015 BllA 
4017 65E8 
4019 AA 
401A C8 
401B BILA 
401D 65E9 



NEXTl 



TAY 
LDA 
STA 
LDA 
STA 
TYA 
LDX 
ASL 
BCC 
INC 
CLC 
TAY 
LDA 
ADC 
TAX 
INY 
LDA 
ADC 



FP doesn't have a shape 
SHPTR establishing routine that 
SHAPE is callable either, so 
SHPTR+1 this does the triclt 
SHAPE+1 

*?00 
A 

NEXTl 
SHAPE+1 



(SHAPE), Y 
SHPTR 



0055 
0056 



401F 851B 
4021 86U 



STA 
STX 



SHAPE+1 
SHAPE 



#*##*»*#»* If using Integer BASIC then the 

» JSR GETPTR PA has a built-in routine 

» STX SHAPE for establishing shape 

» STY SHAPE+1 use these lines instead 

Set starting position on screen 



Get coded byte of vectors 

Y 

If last vector, return 

Reset shape pointer 



Save the vectors 

Clear the current vector 

Decode & perform 1st vector 

Decode & perform 2nd vector 

3rd vector cannot be 

plotted or moved up, 

so is prefixed differently 



(SHAPE), Y 
SHPTR+1 



0064 


4023 A902 


LDA 


#$02 


0065 


4025 8507 


STA 


VERT 


0066 


4027 A902 


LDA 


#$02 


0067 


4029 8508 


STA 


HORZ 


0068 


402B AOOO 


LOOP LDY 


#$00 


0069 


402D BllA 


LDA 


(SHAPE) 


0070 


402F F07C 


BEQ 


RETURN 


0071 


4031 E6U 


INC 


SHAPE 


0072 


4033 D002 


BNE 


NEXT 


0073 


4035 E61B 


INC 


SHAPE+1 


0074 


4037 8506 


NEXT STA 


CODE 


0075 


4039 8405 


STY 


TEMP 


0076 


403B 205740 


JSR 


MARK 


0077 


403E 205740 


JSR 


MARK 


0078 


404l A900 


LDA 


#$00 


0079 


4043 8505 


STA 


TEMP 


0080 


4045 4606 


LSR 


CODE 


0081 


4047 6605 


ROR 


TEMP 


0082 


4049 4606 


LSR 


CODE 


0083 


404B 6605 


ROR 


TEMP 


0084 


404D A505 


LDA 


TEMP 


0085 


404F FODA 


BEQ 


LOOP 


0086 


4051 207240 


JSR 


NOMARK 


0087 


4054 4C2B40 


JMP 


LOOP 






» Main decode ai 


0091 


4057 4606 


MARK LSR 


CODE 


0092 


4059 6605 


ROR 


TEMP 


0093 


405B 4606 


LSR 


CODE 


0094 


405D 6605 


ROR 


TEMP 


0095 


405 F 4606 


LSR 


CODE 


0096 


4061 900F 


BCC 


NOMARK 


ooy/ 


4063 A507 


LDA 


VERT 


0098 


4065 A408 


LDY 


HORZ 


0099 


4067 2000 F8 


JSR 


PLOT 


0100 


406A A507 


LDA 


VERT 


0101 


4060 18 


CLC 




0102 


406D 6901 


ADC 


#$01 


0103 


406F 2000F8 


JSR 


PLOT 


0104 


4072 0605 


NOMARK ASL 


TEMP 


0105 


4074 9010 


BCC 


RIGHT 


0106 


4076 0605 


ASL 


TEMP 


0107 


4078 9009 


BCC 


DOWN 



Transfer move code to storage 



Get plot command 
Plot only if told to 



2 bits determine direction 



(continued) 
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1 t; 



Hfi 


^^IH 












n 


Listing 2 (continued) 
















0108 


407A C608 


DEC 


HORZ 






Listing 4 






0109 


407C 102F 


BPL 


RETURN 












0110 


407E A927 


LDA 


*J27 












0111 


4080 8508 
4082 60 


STA 


HORZ 






6000- 03 00 10 00 B3 00 56 01 


60B8- 29 2D 2D 2D OD 09 09 09 




0112 


RTS 








6008- F9 01 9C 02 3F 03 E2 03 


60C0- 09 09 11 LB IB IB IB IB 
















6010- 09 09 2D 2D 29 2D OD 09 


60C8- 3F 3F 3F 3F 3F 3F 3F IF 




0114 


4083 E607 DOWN 


IhfC 


VERT Takes 2 Lo-Res vertical dots 1 




6018- 11 IB IB IB 3B IF 3F IB 


60D0- IB IB 13 09 09 29 2D 29 




0115 


4085 E607 


IhfC 


VERT to match a Hl-Res dot 




6020- IB 13 09 09 09 2D 2D OD 


60D8- 29 29 29 29 29 29 2D OD 




0116 


4087 A927 


LDA 


*$27 






6028- 09 09 11 LB IB 3F 3F 3F 


60EO- 09 09 11 IB 3B 3F 3F 3F 




0117 
0118 


4089 C507 
408B B020 


CMP 
BCS 


VERT 
RETURN 






6030- 3F 3F IB 13 09 29 2D 2D 
6038- 2D 2D 2D OD 11 IB 3F 3F 


60E8- 3F 3F 3F 3F 3F 3F 3F 3F 
60F0- 3F IF 13 29 2D OD OD OD 








0119 


408D A900 


LDA 


#$00 


Listing 3 


6040- IB 3B IB 3B 3F 13 29 2D 


60F8- OD OD OD OD OD OD OD 2D 




0120 


408F 8507 


STA 


VERT 




6048- 2D 09 OD 29 2D 2D 15 3F 


6100- 2D 2D 15 IB 3B 3F 3F 3F 




0121 


4091 60 


RTS 




4000- A9 00 A8 A5 E8 85 U A5 


6050- 3F 3F 3F 3F 3F 3F 3F 37 
6058- 29 2D 2D 2D 29 2D 2D 2D 


6108- 3F 3F 3F 3F 3F 3F 3F 3F 
6110- 3F IF 13 29 2D 2D 2D 2D 




0123 


4092 0605 RIGHT 


ASL 


TEMP 


4008- E9 85 IB 98 A2 00 OA 90 


6060- 15 IB 3F 3F 3F 3F 3F 3F 


6118- 2D 2D 2D 2D 2D 2D 20 OD 




0124 


4094 900D 


BCC 


UP 


4010- 03 E6 IB 18 AS Bl U 65 


6068- 3F 13 09 29 2D 09 09 09 


6120- 09 09 11 IB IB IB IB LB 




0125 


4096 E608 


IMC 


HORZ 


4018- E8 AA C8 Bl lA 65 E9 85 


6070- 2D OD 11 IB IB 3F 3B 3F 


6L28- 3B 3F 3F 3F 3F 3F 3F IF 




0126 


4098 A927 


LDA 


*$27 


4020- IB 86 lA A9 02 85 07 A9 


6078- IF 3F IB 13 29 2D 2D 2D 


6130- IF IB 13 29 2D OD 09 OD 




0127 


409A C508 


CMP 


HORZ 


4028- 02 85 08 AO 00 Bl lA FO 


6080- 2D 2D 2D 2D 15 3B IF IB 


6138- 09 09 09 09 29 09 09 09 




0128 


409C HOOF 


BCS 


RETUHN 


4030- 7C E6 lA DO 02 E6 IB 85 


6088- 3F IS 3F IB 3B 17 29 OD 


6140- 09 09 11 LB IB IB IB IB 




0129 


409E A900 


LDA 


#$00 


4038- 06 84 05 20 57 40 20 57 


6090- 09 2D 09 2D 09 29 15 IB 


6148- 3B 3F IB IB IB IB 3F IF 




0130 


40A0 8508 


STA 


HORZ 


4040- 40 A9 00 85 05 46 06 66 


6098- IB IB 3F IB 3F IB IB 13 


6150- IB IB 13 00 13 00 36 3F 




Oi:31 


40A2 60 


RTS 




4048- 05 46 06 66 05 A5 05 FO 
4050- DA 20 72 40 4c 2B 40 46 


60A0- 09 09 09 2D 09 2D 09 09 
60A8- 11 IB 3F 3F 3F IB 3F 3F 


6158- 24 27 2C 25 3C 2C 2D 2E 
6160- 2E 3E 37 2E 3E 00 00 OO 




0133 


40A3 C607 UP 


DEC 


VERT 


4058- 06 66 05 46 06 66 05 46 


60BO- IF 13 00 09 09 09 09 09 






0134 


40A5 C607 


DEC 


VERT 


4060- 06 90 OF A5 07 a4 08 20 








0135 


40A7 1004 


BPL 


RETURN 


4068- 00 F8 A5 07 18 69 01 20 








0136 


40A9 A927 


LDA 


#$27 


4070- 00 F8 06 05 90 IC 06 05 








0137 


40AB 8507 


STA 


VERT 


4078- 90 09 C6 08 10 2F A9 27 








0138 


40AD 60 RETURN 


RTS 




4080- 85 08 60 E6 07 E6 07 A9 












E^fD 




4088- 27 C5 07 BO 20 A9 00 85 
4090- 07 60 06 05 90 OD E6 08 
4098- A9 27 05 08 BO OF A9 00 
40A0- 85 08 60 C6 07 C6 07 10 
40A8- 04 A9 27 85 07 60 00 00 


You may contact the author 
Ontario, Canada L3R 2G6. 


at 137 Main St., UnionvilJe, 








JMOK) 1 





! t s 



I ! 



VIC-20 USERS: Get Serious With A PHQITigLJEEM 



• A cartridge development system • Comprehensive manuals 

• Program from Commodore VIC-20 keyboard into built-in 4K 
ROM emulator • Jumper to target ROM socket 

• Test programs in circuit • Fits EXPANSION PORT 

• Includes Hexkit 1.(?, a powerful 100% machine code editor/de- 
bugger utility program that makes coding for &-bit Micros a snap. 

• Built-in EPROM programmer and power supply 

• Burns & runs EPROMS for the Commodore VIC-20, too 
Programs 2716, 2732, 2732A, 27C16, 27C32, adaptable to 2532 & 2764 

PHQrmUEEW CARTRIDGE COMPLETE ONLY $199 



us Canada 

Promqueen 64 $299.00 $399.00 

8K board with 1 EPROM $29.95 $39.95 

16 board with 1 EPROM $39.95 $49.95 

8K board with 1 EPROM, C64 $39.95 $49.95 




GLaJCESTEH 
CDIVIPJTEH.ir^a 



Send for Free Brochure 



Circle No. 48 



Distributed in U.S. by Arbutus Total Soft, Inc., 4202 Meridian, Suite 214, 
Bellingham, WA 98226. Phone 800-426-1253, in Washington 206-733-0404 

Distributed in Canada by IBC/Distrlbution Canada,4047 Cambie St., 
Vancouver, BC V5Z2x9. Phone 604-879-7812 
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A UNIX-Like 
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for 6809 

icroprocessors 




Part 11 



by Stephen L. Childress 



The modularization of the I/O 
system allows OS-9 to enhance the 
standard I/O at run time, not assembly 
or patch time. Device names and 
addresses are not fixed by the operating 
system but, rather, the program may 
attempt I/O to any device name. Of 
course, an appropriate module of that 
name must be loaded and ready to go at 
that time. Device names, driver pro- 
cedures, register addresses, peripheral 
idiosyncracies, etc., are stated outside 
the core of the operating system and 
may be extended with ease. A device 
driver and descriptor for any data acquisi- 
tion device may be loaded and accessed 
by programs using these techniques. In 
fact, should RBF and SCF fail to meet the 
needs of some device, an entirely new 
manager may be loaded and used along- 
side RBF and SCF. An example of this 
might be a 9-track tape drive that is not 
random-block oriented but is more than a 
character-oriented device. Perhaps an 
SBF (sequential block manager) module 
would be best: 

This named-module concept is 
quite different from the old-school con- 
ventions, and it takes a while for the 
merits of the scheme to become ap- 
parent. The key point is that the 
modular software concept avoids con- 
sidering where a piece of code is in 
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memory until run time (not design 
time, assembly time, or link-load time). 
Although the name-to-address conver- 
sion takes a while, the module look-up 
directory makes the time acceptable. 

You may wonder how modules can 
be expected to float around in memory. 
Won't machine instructions like JMP 
and JSR become confused? They would 
on an 8080 micro, but the 6809 uses 
relative addressing for branching, in- 
cluding long-distance branches and 
subroutine calls. Relative addressing is 
permitted on all instructions including 
those that access constants like 
numbers and strings. Since programs 
are assigned memory for variables 
(RAM) at run-time when invoked by 
KERNAL rather than the old way 
(assembly time), the four 16-bit index 
registers of the 6809 access data 
workspace without the programmer 
knowing where it will be. 

After years of working the old way, 
these ideas took some time to register 
with me. Look at the tiny assembly- 
language program for OS-9 in figure 1. 
It should help you understand how posi- 
tion-mdependent module code works 
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The code in this module is com- 
pletely position-independent; i.e., it 
may be placed anywhere in memory 
and executed without link-loading or 
other preparatory adjustments, thanks 
to the 6809's powerful addressing. 
Look at the listing for a moment to 
understand how the code becomes 
modular and position-independent. 
You see the familiar ORG (origin) 
directive, but it means something quite 
different in the OS-9 system; ORG 
sets up a "data section" of the pro- 
gram, which contains only memory 
reservations (RMBs). 

The symbols VARA and VARB just 
after the ORG statement take on the 
values of zero and one, respectively; 
RMB produces no code. These numbers 
(actually the symbols VARA and 
VARB) will be used as offsets into the 
data storage area, whose exact address 
is not known at the moment. Remem- 
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ber, OS-9 assigns a data area (RAM 
region) at run time. 

Now the MOD statement creates a 
module header, which contains all of 
the information needed to determine 
the module's name and attributes. The 
MOD statement introduces the "pure- 
code" part of a module, which should 
not contain storage for variables. When 
the KERNAL activates this module, the 
6809' s registers are set up as described 
in the listing's comments. 

How do you address the variables? 
The 6809's U (index) register contains 
the address of the data area you will be 
using at the time the program runs. By 
now it should be obvious that each 
module may be given (by KERNAL) a 
unique piece of RAM for its variables. 
In this module, MEM in the header 
states that the module needs 203 hex 
bytes, minimum, of data area. The 
KERNAL 's memory-management rou- 
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tine simply locates 203 bytes (actually, 
memory is handed out in multiples of 
256 bytes) of unused memory and 
places that address in the U register 
before running the module. 

Now consider the stack for the 
module; since the 6809 has a general 
16-bit stack pointer register (S), the 
KERNAL simply sets S to the address 
of the end of the data area for the 
module. Thus, the module gets a 
private stack, unique from other 
modules' stack space. Why separate 
stacks? For time sharing. There may be 
several modules active simultaneously, 
each contending for CPU time as 
handed out by the KERNAL's 
scheduler. To switch modules, the 
KERNAL merely preserves the current- 
ly executing module's registers, loads 
up the new module's registers, and ex- 
ecutes the new module starting where 
it last was when its time slice expired 
(due to a clock interrupt). Thus, time 
sharing (or multi programming) is 
made practical on even a small com- 
puter with only 64K. Each program 
uses just enough memory for its 
modules' code and a second region of 
memory for as many variables as 
needed. Therefore, many small 
modules or a fewer number of large 
modules may be run simultaneously. 

Look again at the code in listing 1 to 
understand how to avoid ever using ab- 
solute memory addresses. Now you 
know addressing of variables merely 
uses an index register to point to a data 
area. But what about constants, which 
are imbedded in a module's pure code? 
The 6809's relative addressing mode 
comes to the rescue. In the listing, pro- 
gram is to send an ASCII message string 
to the user; it's labelled MSG, but 
remember that the location of the 
module in memory is not known until 
nm time. The old way of getting the 
address of MSG is: LDX #MSG (or 
equivalent 8080/Z-80 code, etc.), 
which would place the value of MSG in 
the X register. But this is just the 
address shown in the listing, not the 
address at which MSG falls according 
to the module's address in memory. So 
the 6809's LEAX (Load Effective 
Address into X) instruction is used in- 
stead of LDX. The LEAX instruction 
contains (in bytes[s) following the op- 
code) the distance from the instruction 
to the label (MSG). When the LEAX in- 
struction is executed, the 6809 chip 
does the following: 
1 . Gets the distance part of the LEAX 
instruction, which follows the 
opcode in one or two bytes. 

No. 62- July 1983 



2. Adds that distance value (which 
may be negative) to the current PC 
(program counter). 

3. Places the result in the X register 

[16 bits). 

After step 3, the X register has the 
actual memory address of MSG ready 
to ship off in a call for I/O to OS-9 (the 
OS-9 ISWRLN statement). The load ef- 
fective address mode in the 6809 (we 
looked only at the PCR, PC-relative 
case) allows actual, absolute memory 
addresses to be determined easily at run 
time and ignored at assembly time. 

Here are a couple of other key 
points shown in the listing: in order to 
be unaware of the addresses of the KER- 
NAL's support for I/O calls, etc., all 
OS-9 system calls are made using the 
"OS-9" assembler directive. This merely 
produces a SW12 (software interrupt, 
trap, or whatever you wish to call it), 
which uses an address vector that the 
KERNAL has set up. The desired KER- 
NAL action is stated by placing a code 
in the byte following the SWI2 instruc- 
tion. In the listing example, the 
ISWRLN and FSEXIT codes are used. 
There are several dozen KERNAL func- 
tion codes upon which to draw, each 
using the techniques shown for passing 
parameters in the registers. The point 
is that the KERNAL itself is a module 
like all the others and its address may 
be ignored. 

Finally, the I/O performed 
[I$WRLN] by the module was done us- 
ing a "path" number passed in a 
register. Like Unix, OS-9 programs are 
assigned three I/O paths at the time 
they are run. These are called the 
"standard paths" since few programs 
need more than three I/O "channels." 
When the user [or some other program) 
causes a module to be executed, the 
KERNAL sets up these three paths in a 
careful manner. Path zero is called the 
"standard input" and, for the case 
where a user invoked the module from 
a terminal, is associated with the ter- 
minal's keyboard. Paths one and two 
are the "standard output" and "stan- 
dard error output," normally the user's 
terminal screen (or paper). The actual 
devices on the other end of these I/O 
paths are not known to a module [but 
may be determined if needed). 
Delightfully simple, a program merely 
reads on path and writes on paths 1 
and 2, completely ignoring what device 
is there. 

Thinking back to the OS-9 block 
diagram shown in part I, the user's ter- 
minal often is affiliated with the SCF 
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and ACIA modules that are handling 
I/O for the module. Each module ac- 
tivated by KERNAL is given paths 0, 1, 
and 2 for standard I/O, though path in 
module A may be a different device 
than path in module B. None the less, 
the modules are unconcerned with 
what's on the other end of the paths. Ad- 
ditional I/O paths to files or devices 
may be established at run time by any 
program. 

Incarnations 

Let's step back now and look at how 
these ideas all blend for the user's 
benefit. As an example, consider that 
two terminals are attached to the com- 
puter and each person wants to run 
BASIC. BASIC [BASIC09 for OS-9) is 
merely a large module that has all of 
the module conventions shown for the 
simple example. After booting up the 
system, the primary terminal is ac- 
tivated by automatically running the 
SHELL program module with the three 
standard I/O paths set up for the 
primary terminal, TERM. The user 
sitting at TERM'S keyboard types in a 
command to invoke module SHELL 
with the I/O paths set for the second 
terminal, Tl. Invoking a program 
causes the KERNAL to create a new 
"process". The time-sharing scheduler 
of the KERNAL gives each process the 
CPU for a time slice, then switches to 
another process. In this example there 
are two processes bidding for CPU 
time, both of which happen to be 
running the same program module, 
SHELL. SHELL, like any other module, 
is pure code and its variables are in a 
data space assigned by the KERNAL. 
The user at the TERM terminal and the 
user at the Tl terminal are, to OS-9, 
two separate processes, each having an 
assigned data area. Both processes are 
running the SHELL module's code; the 
same code is used for both processes, 
not two copies. As these two processes 
alternately get CPU time, they run sec- 
tions of the code in SHELL, though not 
in lock-step. When a clock interrupt 
causes the KERNAL to switch pro- 
cesses, the PC for the interrupted pro- 
cess is one of the items preserved for 
recall when the process is later reac- 
tivated. Thus, the two processes run- 
ning SHELL each march through the code 
in SHELL but have independent data and 
stack areas as well as I/O devices. 

Since the two terminals are both 
running SHELL now, each user may in- 
struct SHELL [via the keyboard) to run 
BASIC. The KERNAL dutifully handles 
the first user's request to execute 
module "BASIC09", copies it from 
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disk to memory, and activates the 
BASIC09 module with a data area and 
the I/O devices for that user. When 
that user's [process) time slice expires 
(typically 1/10 of a second), the other 
user's process comes up and his request 
for BASIC is handed to the KERNAL. 
KERNAL discovers that BASIC09 is 
already in memory, so it simply ac- 
tivates BASIC09 a second time with the 
other user's data area and I/O devices. 
Now two people are sharing one copy of 
BASIC, each with private data areas 
and I/O devices. To emphasize that only 
one copy of the pure code within 
BASIC09 is present you cotild say that 
there are two incarnations of BASIC09 
occurring. Time sharing makes each user 
feel as though he has his own CPU. 

The time-sharing and Unix-like 
schemes I have shown here have been 
available previously only in minicom- 
puter systems and presumed to be far 
beyond the means of the microcom- 
puter. But they do work in OS-9 
because; 

1. OS-9 hands out memory in 256-byte 
chunks to minimize waste. 

2. All code is "pure" so that you 
never need two copies of the same 
program in memory. 

3. The 6809's addressing modes make 
handling separate data and program- 
code areas trivial. 

4. All code is position-independent so 
that it may run anywhere without 
awkward and slow relocation. 

5. The Unix I/O path philosophy al- 
lows programs to ignore exactly 
what devices it is working with. 
When required, a program can de- 
termine the device characteristics 
[file versus CRT, CRT controls, etc.) 
for special applications like screen 
forms and, of course, open disk files 
on other paths. 

All This on a 64K Micro? 



Study the features I've discussed to 
see whether or not they really are prac- 
tical on a 64K computer [OS-9 also sup- 
ports the SS50 machines with 20-bit 
bus addresses for 1Mb memories). For 
example: if you have one user who runs 
the LIST utility to copy a file to a 
printer and he/she simultaneously 
runs another program to edit a text file, 
these activities require: 

LIST - 256 bytes of code, 512 bytes of 
data area. 

EDIT - 8K bytes of code, 16K bytes of 
data area. 
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CARDRAM 16 

1 6 K Memory Expansion 

Cartridge for the VIC-20® 

Personal Computer 

FEATURES: 

• Provides the equivalent of two 
8K RAM cartridges. 

• Each 8K is individually switch se- 
lectable by block. 

• Opening in case to provide easy 
switch access. 

• Uses 8 low power CMOS 2K x 8 
static RAM chips. 

• High quality glass/epoxy circuit 
board. 

• Gold plated contacts. 

• Individually tested. 

• Made in the U.S.A. 

$50.50 



TO ORDER; 
P.O. BOX 768 
WICHITA. KS 67201 
(316)263-1095 



Handling charges $3.00 
CO D (Add 52 00) 
Personal checks allow 3 week delivery 
VIC-20'« is a registered trademark of Commodore 
Prices subject to change 




SYSTEMS INTEGRATOR 



INTRODUCING: 

ZYTREX 

ZT14411 

CMOS BAUD RATE 

GENERATOR 

REPLACES MOTOROLA MC14411 



PIN /FUNCTION COMPATIBLE 

IMPROVED FREQ OUTPUT 
DRIVE (4 LSTTL LOADS) 

FULLY STATIC OPERATION 

TTL-COMPATIBLE INPUTS 

WIDE OPERATING VOLTAGE 



FREE EVALUATION SAMPLES 
FOR VOLUME USERS 

$6.20 EACH AT 1000 PCS. 



ZYTREX CORPORATION 

224 NORTH WOLFE ROAD 

SUNNYVALE, CA 94086 

(408) 733-3973 



Circle No. 49 
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This is 8192 + 16384 + 256 + 512 of 
memory = 25,344 bytes. There is ample 
room for this, considering the size 
of the system software [KERNAL, 
lOMAN, et. aL, as shown in the MDIR 
Usting in part I) . In fact, a second person 
may share EDIT with a new (iata area, or 
several more incarnations of LIST 
could run if other printers or devices 
are required. Since LIST is running con- 
currently, you have a print spool going 
without a $400 spool box. 

The physical use of memory, in 
general terms, would be (approximately): 

Mem Area Utilization 

AOOO-FFFF OS-9 system code modules: 
KERNAL, I/O drivers, etc. 
BFOO-BFFF Code module LIST, 0.25K 
9F00-BEFF Code module EDIT, 8K 
5700-9EFF (unused memory) 
0600-46FF Data area for EDIT, 16K 
0400-05FF Data area for LIST, 0.5K 
0000-03FF Data area for system 
modules 

As you can see, there is ample unused 
memory for other concurrent programs 
(perhaps other users) to claim. Also, 
you could use a program larger than 
EDIT and still have room to spare. 

In another instance, there might be 
two users, each running BASIC with 
relatively small programs (BASIC09 is 
an interactive compiler so program 
storage requirements are small). In this 
case, there would be a 2 IK area for 
BASIC and, say, two 8K areas for pro- 
grams, for a total of 37K. If the collec- 
tion of I/O drivers and other system 
software in use at the time were, say, 
24K, the two-user BASIC case requires 
24 + 37K = 61 of the 64K. This is a tight 
fit, but each user can run a sophis- 
ticated program in 8K of program space 
(about 250 lines of code, which is about 
a 5 -page listing of BASIC code). If one 
of those users is running a program 
with large data requirements, such as 
big arrays, both users might not be able 
to use the system concurrently. Con- 
sidering the highly sophisticated 
capabilities of BASIC09, it is indeed 
practical to run two users for many jobs 
on a small 64K computer. Clearly, run- 
ning smaller programs like editors, 
assemblers, print-listers, and applica- 
tions programs is much less demanding. 

Interrupts — Immoral for Micros? 

Surprisingly, few micros use inter- 
rupts, probably because of manufac- 
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turers' concerns about irregular 
schemes used by some peripheral ven- 
dors. Micro ware took a rather bold step 
and enabled interrupts within OS-9. 
With the reentrant module code, this 
turns out to be quite easy. But the 
clincher is that the serial I/O driver 
(ACIA) is designed expressly to handle 
CRT input and output via interrupts. 
For years the I/O boards have tied the 
interrupt request from the I/O chips 
(UARTs) to the bus IRQ line, but the 
operating systems never used inter- 
rupts! In OS-9, the ACIA driver accepts 
interrupts from the keyboard(s) and 
takes in characters when you type 
them. The keystrokes are buffered (up 
to 80 or more) by ACIA for each ter- 
minal. When the application program 
has time to read from the keyboard, 
ACIA delivers the characters thus far 
accumulated or, if none are buffered 
up, waits for more to arrive. The pro- 
gram is completely unaware of all this 
and may call for characters by ones or 
by lines. For output, ACIA accepts 
characters from a program and sends 
out one per interrupt to the terminal. If 
the program gets ahead of the device, in 
order to catch up ACIA puts the pro- 
gram to sleep for a short time. These 
same techniques may be done for 
parallel interfaces via the standard PIA 
driver. 

The interrupt-driven I/O makes a 
profound difference in the usefulness of 
the system. In the SS50 machines, the 
serial cards contain the MC6850 
UART, which has an interrupt request 
pin that is simply tied to the wire-or 
bus IRQ line — there are no vectors in 
hardware or other exotic conditions. 
How does OS-9 decide who is inter- 
rupting? Simple; each I/O driver, at 
startup time, tells the I/O manager 
(lOMAN) that it has devices that will 
interrupt, and states the address of each 
device's status register and which bit 
signifies a "done" condition. The in- 
terrupt sequence then goes like this: 

1. Device has or needs data and sets 
IRQ on the bus true. 

2. The 6809 does an interrupt se- 
quence, stacking all of the registers 
and vectoring to a routine in 
lOMAN. 

3. lOMAN goes through the list of de- 
vices, which it now knows may in- 
terrupt, and finds some device 
whose "done" bit is true. 

4. lOMAN then branches to that de- 
vice's I/O driver, say ACIA, passing 

(Continued on page 91) 
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B commodore 

NEW COMMODORE PRODUCTS 

C8M 64 Call 

CBM B500 $ 695 

CBM B700 2990 

CBM 1520 Plotter 259 

CBM 1701 Color Monitor 279 

B Series Software Call 

SOFTWARE FOR CBM 64 S 

Word Processing (WordPro V) $ 69 

Word-Poc (tape) 60 

Ttie Assistant Series 

Writer's Assistant (easy and flexit>le) ... 99 

File AssJstant(datat}ase with merge). . . 99 

Spreodstieet Assistant 99 

Pers. Finance Assist.(great reports) ... 45 

Busicalc (Spreadstieet) 55 

Coco II (build your own games easily) ... 45 

Home Accounting Package 39 

General Ledger, A/H A/P 

(witti ctieck writing) eal 39 

CBM EasyFinance 50 

CBM EosyScript 80 

CBM EasyFile 80 

Data Manager 70 

Stock(lnvestment analysis) 80 

Pet Emulator (emulates 4.0 basic) 30 

Sprite-Magic (use joystick 

to design sprites) 19 

Assembler Package (cassette or disk, 
compiled, includes editor, loader, 

disassembler) 39 

Spacebelt 20 

Retroball 34 

INTERFACES A ACCESSORIES 

80 Column Expander $159 

VIC 1600 Modem 95 

VIC 1650 (auto answer, autodial) 150 

VIC 1525 Graptiic Printer 329 

VIC 1530 Dotasette Recorder 65 

VIC 1541 Disk Drive 329 

VIC Switcti (connect 8 64's or Vies 

to printer, dd) 149 

IEEE Interface (64) 85 

PET- IEEE cable 33 

IEEE-IEEE cable (2m) 43 

Parallel Interface (Epson, Okidoto, 

IDS, NEC) 80 

RS-232 Printer Interface (Okidota, 

Diablo, etc) 60 

Programmers Reference Guide 18 

Verbatim Diskettes (10 per box) 26 

Vidree (Programmers Utility) 75 

VIC PRODUCTS a ACCESSORIES 

8K RAM Memory Expansion Cartridge ... $ 40 

16KRAM 70 

24KRAM 105 



VIC IEEE Interface 75 

VIC 3 Slot Expander. 27 

VIC 6 Slot Expander 70 

RS-232 Printer Interface 65 

Cassette Interface 27 

Home Finance Package (6 topes) 47 

Gorf(64also) 30 

Omega Race 30 

Arcade Joysttek - Heavy duty w/2 firing 

buttons! Great tor ttie VIC or 64 ... . 25 

MONITORS -GREAT 
RESOLUTION (64 OR VIC) 

Amdek Color I $ 299 

Amdek II or III call 

Panasonk; CT160 279 

Comrex 6500 - 13" Color 299 

Transtor 20 (High Resolution 

Green PhosphoO 129 

Video/ Audio Coble 15 

PRINTERS - LETTER QUALITY 

CBM 8300, 40 cps $1450 

Diablo 620, 25 cps 949 

ComRlter, 17 cps 819 

Transtor 130, 16 cps (auto load, 

wp teaturesi) 769 

NEC 7700 series 2350 

NEC 3500 series 1600 

PRINTERS - DOT MATRIX 

CBM 8023, 1 50 cps/graphics 589 

Epson FX Printer, 160 cps 529 

Epson MX-80 w/Graftrax 349 

CBM Graphics tor Epson 65 

Okidata 82A, 1 20 cps (serial 

and parallel) 429 

NEC 8023A (parallel) 439 

Okidota 92 559 

Star Gemini, 10 360 

Star Gemini, 15 499 

COMMODORE BUSINESS 
SERIES 

Superf>et (5 languages, 

2 processors) $1409 

CBM 8032 Computer, 80 Column .. . 1029 

CBM Memory Exjxinsioa 64K 359 

CBM 8050, 1 mg Dual Drive 1259 

CBM 8250, 2 mg Dual Drive 1 500 

CBM D9060, 5 mg Hard Disk 2240 

CBM D9090, 7.5 mg Hard Disk ... . 2600 
CBM 2031 , 1 70K Single Drive (New) 489 
DC Hayes Smart Modem 220 

BUSINESS SOFTWARE 

WordPro 4* or 5* $ 309 

Administrator 489 

VisiCak: (expanded) 199 

The Manager (database) 199 

BPI A/R, G/L Job Cost, Inventory, 
Payroll ea325 



MasterCard, Visa, 
Money Order, Bank Check 

COO (add $5) accepted. 

Add 3% surcharge fOr credit cards 

In stock items shipped within 48 hours, 

FO.B, Dalkis, Texas 

All products shipped with manufacturer's 

warranty. 

Prk»s ore subject to change without notk;e. 

TO ORDER 

CALL TOLL FREE 

800-527-4893 

800-442-1048 

(Within Texas) 

Business Hours 
Mon.- Fri. 8 to 6, Sot. 10-2 

Write tor tree catalog. 

GAME OF THE MONTH 

Adventu-Wrtter (make your 
own adventure game) 39 





SJB DISTRIBUTORS INC. 

10520 Piano Rood, Suite 206 

Dallas, Texas 75238 

(214) 343-1328 
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VIDEO TERMINAL BOARD 82-018 



This is a complete stand alone Video Terminal board. 
All that is needed besides this board is a parallel 
ASCII keyboard, standard NTSC monitor, and a 
power supply. It displays 80 columns by 25 lines of 
UPPER and lower case characters. Data is transfer- 
red by RS232 at rates of 110 baud to 9600 baud — 
switch selectable. The DART is controlled (parity etc.) 
by a 5 pos. dip switch. 

Complete source listing is included in the documen- 
tation. Both the character generator and the CRT pro- 
gram are in 2716 EPROMS to allow easy modification 
to your needs. 

This board uses a 6502 Microprocessor and a 6545-1 
CRT controller. The 6502 runs during the horz. and 
vert, blanking (45% of the time). The serial input port 
is interrupt driven. A 1500 character silo is used to 
store data until the 6502 can display it. 




Features 

• 6502 Microprocessor 

• 6545-1 CRT controller 

• 2716 EPROM char. gen. 

• 2716 EPROM program 

• 4K RAM (6116) 



• 2K EPROM 2716 

• RS232 I/O for direct 
connection to computer 
or modem. 

• 80 columns x 25 line display 



• Size 6.2" X 7.2" 

• Output for speaker (bell) 

• Power + 5 700Ma. 

+ 12 SOMa. 
-12 SOMa. 



BAUD RATE 

GENERATOR 
110-9600 



PARALLEL 
KEYBOARD 

INPUT 

(TTL) 



VIDEO TERMINAL 
82-018 




VIDEO 
DISPLAY 
CIRCUIT 



^ 



COMPOSITE 
VIDEO 



SPEAKER 
(BELL) 



+ 5 +12 -12 GND. 



This board is available assembled and tested, or bare board with the two EPROMS 
and crystal. 

Assembled and tested #82-01 8A $199.95 

Bare board with EPROMS and crystal #82-01 SB $ 89.95 

Both versions come with complete documentation. 




#249 



ALL PRODUCTS ARE AVAILABLE FROM JOHN BELL ENGINEERING, INC. • 1014 CENTER ST., SAN CARLOS, CA 94070 
ADD SALES TAX IN CALIFORNIA • ADD 5% SHIPPING & HANDLING 3% FOR ORDERS OVER $100 

SEND $1.00 FOR CATALOG (415) 592-841 1 1°°^ si^^o^b r^6*n 

Mill nAi I uni lac- a=r„ . A^r„ Muu ji.ou run L..U.U, 
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the address of the data area for that 
device (which was set up when the 
device was made known to OS-9). 

5. The driver looks at the device's 
status register to decide what to do: 
input, output, error condition, etc. 

6. The driver then tells lOMAN to 
return to the interrupted program. 

7. lOMAN and KERNAL decide either 
return to the interrupted program or 
perhaps to switch processes. 

Essentially lOMAN and the KER- 
NAL make an I/O driver believe that 
the machine has a fancy vectored (and 
prioritized) interrupt system. Again, 
this simplifies the drivers. The ACIA 
driver does everything "right". For ex- 
ample, your keystrokes are accepted 
but not echoed back to the screen until 
some program actually reads the 
characters. This keeps the screen in 
order regardless of whether the user is 
ahead or behind the program's state. 
Also, if you fill up the keyboard buffer, 
ACIA sends a beep to the terminal to 
tell you to wait a moment. The usual 
"stop scroll," "abort program," "no 
echo," and other special keys are pro- 
vided for also. 

Many drivers may be written to use 
the periodic clock interrupts to poll the 
device status at some 100 times per se- 
cond. This is convenient for controlling 
devices that cannot, due to the inter- 
face design, produce interrupts. But 
what about an old disk interface that 
uses programmed I/O (not DMA)? The 
driver for these disks will hog a lot of 
CPU time (one or two revolutions of 
the disk at 300 or so RPM) but, happily, 
interrupts may be left on while doing 
the long, slow seek; unless the user is 
blazing away on his keyboard, you 
don't suffer too much. And DMA-based 
disk controllers are the norm now, 
with many fancy LSI chips for DMA 
and disk control. The controllers for 
Winchester hard disks are so smart that 
the CPU time for servicing these is 
much less than for a floppy. 

You can see that many of the 
features of the modem minicomputer 
operating system software are indeed 
feasible for even 8-bit microcomputers. 
OS-9 will run on an Apple II or a $3500 
SS50 machine. At the time this was 
written, there was well-founded specu- 
lation that Tandy will offer OS-9 for the 
Color Computer. And why not? 



You may contact the author at 31220 La 
Baya Dr., Suite UO, Westlake Village, CA 
91362. 
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AIM 

Data Acquisition and Control Systems 



The IDAX Industrial Data 
Acquisition and Control Sys- 
tem, providing analog to di- 
gital input, digital to analog 
output and clock/user ports/ 
prototyping area is now avail- 
able for immediate delivery. 

IDAX: A total control interface 

The bus compatible IDAX In- 
dustrial Data Acquisi lion and Con- 
trol System provides you with a 
flexible way to expand the useful- 
Iness of your AIM or CUBIT CPU. 
Each IDAX circuit board is the 
result of extensive research and 
engineering; and is ready to plug 
in and use now. 

IDAX circuit cards are availa- 
ble with specific functions or fully 
populated. 

Analog to Digital Functions Only. 

Features 16 channel, 12 bit reso- 
lution input with 35 _psec. /chan- 
nel conversion. IDAX A to D 
card, Model 1900A, $375. 

Digital to Analog Functions Only. 

4 double buffered, 12 bit resolu- 
tion output channels with S^sec- 
/channel conversion providing con- 
trol of to 10 volts. IDAX D to A 
card. Model 1900B, $675. 

Clock/User Ports /Prototyping 
Area Only. 

Includes 24-hour, independent cry- 
stal timebase clock with alarm 
mode; two 16 bit timers, each 
with 16 bit prescaler; power, 

AIM is a Rockwell, International trademark 
CUBIT is a Cubit, Incorporated trademark 



ground bus and grid area for cus- 
tom signal conditioning. IDAX 
Clock/Ports/Prototyping card, 
Model 1900C, $275. 

Fully Populated IDAX card. 

Get all the above functions on 
one 41/2" X 6'/2" card. IDAX Fully 
Populated card, Model 1900F, 
$1,100. 

IDAX Data Pack 

Start-up software and full docu- 
mentation for each circuit card is 
provided. You may order a Data 
Pack without a card for only $15. 

IDAX Motherboards Available 

Motherboards for expansion of 
up to eight boards are available. 
Call and ask about your specific 
application. 

How to order your IDAX 

Write or call Jack Schnabel at 
Design Dynamics today to place 
your order or get more informa- 
tion; or use the coupon below. 

1830 Soscol Avenue 
Napa, California 94559 

Yes! Tell me more about IDAX. 

Name: 

Firm: 

Address: 

City: 

State: Zip: 
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Telephone: 

For immediate response, call now: 
(707) 257-6000. 
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Player 

Utilities 

Package 



The Player Utilities Package is a collection of FORTH 
words designed to manipulate the Players in Atari 
Player/Missile Graphics. The Paclcage allows the user to 
define and move Player patterns easily on the video 
screen. An additional set of FORTH words demonstrates 
the capabilities of the Player Utilities Package. 



for 



APX fig-FORTH 



by Mike Dougherty 
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Player/Missile (P/M) graphics of the 
Atari 800 allow many graphic 
special effects to be used in applica- 
tions. Whether the P/M graphics are 
used to implement a fast-paced game or 
to provide the LOGO-style turtle for 
educational software, the graphics 
feature is an important programming 
tool. Unfortunately, APX fig-FORTH 
does not include any words to tise the 
Atari P/M graphics feature. The follow- 
ing FORTH application. Player 
Utilities Package, is a set of FORTH 
words designed to control the Players of 
P/M Graphics. (For a description of 
Player/Missile Graphics refer to "Atari 
800 Player/Missile Graphics," MICRO 
(44:9) and the Atari Hardware 
Reference Manual.) These FORTH 
words are not meant to be optimal in 
any specific sense; they should be used 
only as a starting point. As applications 
require P/M graphics, this utility may 
be tailored to fit as needed. 

Enter screens 30 through 51 as 
listed. Note that screens 41 and 46 con- 
tain only the "next-screen" word 
'->'. This is to allow room for your 
own utilities and enhancements. To 
enter the screens, use either of the line 
editors supplied with APX fig-FORTH, 
or use the screen editor I presented in 
the February '83 issue ("EDIT: An 
ATARI FORTH Screen-Oriented Editor," 
MICRO 57:47). 

Once you have stored the screens on 
disk, type '30 LOAD' and RETURN to 
add the player-utility words to your 
FORTH vocabulary. 

A Demonstration 

To demonstrate the capabilities of 
the Player Utilities, the FORTH words 
in screens 54-62 are included also. 
These words define four Player patterns 
and four types of Player motion. 
DEMO executes the demonstration; it 
is not meant to be complete in any real 
sense but to simply demonstrate the 
Player Utilities Package application. 
DEMO allows the user to control the 
CROSS-HAIRS Player via joystick 1 
(STICK(O) in BASIC) while the other 
three Players move on their own. A 
round is over whenever the CROSS- 
HAIRS touch another Player. This con- 
tinues until a round terminates after a 
key has been pressed. 

In general, the information describ- 
ing a Player is pushed onto the stack 
followed by the required move 
parameter(s) prior to executing the 
Player movement word. For example, 
to move the TURTLE Player under con- 
trol of joystick 1 (STICK(OJ in BASIC): 
No. 62 - July 1983 



TURTLE JOY-MOVE 

To move the DUCK Player 10 steps at 
random from its current position: 

DUCK 10 RANDOM-MOVE 

Player Data Structure 

Each Player being displayed on the 
Atari video screen may be described by 
a set of attributes or characteristics. 
This attribute set consists of data 
elements such as the bit pattern being 
displayed, the location of that pattern 
on the screen, which Player number 
[0-3) is associated with the bit pattern, 
and so forth. To manage the set of 
Player attributes, a new data structure, 
PLAYER, was defined on screen 38. 
Graphically, this .data structure is 
represented in figure 1. To reserve 
FORTH dictionary space for a Player 
data structure, the following steps are 
performed: 

1 . Push the following values onto the 
data stack: 

a. Each byte of the Player bit pattern, 
from the bottom of the image to 
the top. 

b. The number of bytes making up 
the Player pattern. 

c. The P/M Player number (0-3) for 
this Player. 

2. Execute the defining word, PLAYEI 
to create a dictionary entry. 

3. Follow PLAYER immediately with 
the name of the new Player data 
structure. 

For example, the following will set ii| 
the Player data structure outlined i i 
table 1: 



HEX 

49 2A IC 3E 7F 7F 

3E 5D 49 IC IC 08 

0C02 

PLAYER TURTLE 

DECIMAL 



(bit pattern] 
(size. Player; 
[diet entry) 



Once defined, execution of the word 
TURTLE leaves the TURTLE para- 
meter field address (pfa) on top of the 
stack. The pfa address points to the 
first memory location of the TURTLE 
Player data structure. By adding the 
correct offset to the pfa, the address of 
any Player attribute can be computed. 
Since it is likely that the Player data 
structure will be modified from ap- 
plication to application, the Player 
Utilities Package references the at- 
tributes indirectly. FORTH screen 39 
defines the common entry points into 
the Player data structure. For example, 
to push the current x location of TUR- 
TLE onto the stack, the following 
words would be executed: 

TURTLE X@ 

The word TURTLE pushes the starting 
address of the TURTLE data structure 
[pfa) onto the data stack. The word X@ 
takes the pfa on top of the stack, com- 
putes the address of the x Player at- 
tribute, and replaces the top of the 
stack with the value of the x attribute. 
Similarly, the following places the top 
of the stack into the TURTLE'S x 
attribute: 



TURTLE X! 

A FORTH word requiring the x 
value of TURTLE does not need to 
know where x is stored in the data 
structure. Further, if ever the position 
of X in the Player data structure must 
be moved, only X@ and X! need to be 
changed. (Naturally, any application in 
memory would have to be forgotten 
and re-LOADed. 

In addition to being modified easily, 
PLAYER defines ten unused words for 
immediate expansion. When the Player 
Utilities Package was written, I had 
several applications that required 
the extra space. For your own appli- 
cations, PLAYER should be modified as 
necessary. 

Player Movement 

The Atari 800 Player is a narrow 
graphic image extending vertically 
from top to bottom on the video screen. 
The horizontal screen position of a 
Player is determined by a hardware 
horizontal position register. The 

(Continued on next page) 



X-^Vi'-^'S'.'^-lS*!^'-': -M- 






Flguie 1: TURTLE Pfayctji 



lycic Dafa Struefure after 



Inrtrallzation 




" »s- y*. ^■' » 



Player Utililies Package 

requtres: 

Atari 800 :' 

Atari 810 Disk Drwe 
AFX fig-FORTH 
32K bytes of memory 










%7Ff 



^•WF.'. 



S.tF' 









— -.■■. • ■ 



s-m 



Vi'i 



No. 62- July 1983 



MICRO 



93 



horizontal position is changed by stor- 
ing the 8-bit position (0-255) desired in 
the Player's horizontal register. The ap- 
parent vertical position of the Player is 
determined by the location of the 
Player bit pattern in P/M memory. A 
Player is moved up or down by moving 
the bit patterns. However, any bits re- 
maining from the old image will still be 
displayed until they are explicitly 
erased with zeros. Thus, to move a 
Player an arbitrary amount the old 
Player bit pattern must be filled with 
zeros (erased), the Player bit pattern 
must be moved to the new Player 
memory position for vertical move- 
ment, and the Player horizontal posi- 
tion register must be set for horizontal 
movement. To avoid flicker, the first 
two steps should be performed as close 
together as possible. 

The Player Utilities Package pro- 
vides two FORTH words to move 
Players about the video screen. The 
word STEP-XY allows a Player to move 
relative to its current position, while 
MOVE-XY specifies an absolute desti- 
nation. The x,y location of a Player is 
restricted only by the range of a FORTH 



16-bit number. If a Player falls outside 
of its graphic memory, the Player 
VIDEO attribute is set to zero and the 
image is not displayed. However, the 
x,y position attributes do not depend 
upon whether or not the Player is 
displayed — the video screen acts as a 
window into the Player's space. Since 
both STEP-XY and MOVE-XY make ex- 
tensive use of the Return Stack for 
parameter storage, they are coded as 
single FORTH words. Listing 1 shows a 
pseudo-code representation of STEP-XY. 
STEP-XY expects the Player pfa, the 
relative step in the x direction, and the 
relative step in the y direction to be on 
the stack. For example: 

TURTLE 5-7 STEP-XY 

will move the Player TURTLE five 
steps to the right and seven steps up- 
ward. (As in normal graphics, the low 
addresses in P/M Memory represent 
the top of the video screen.) 

In a similar manner, MOVE-XY ex- 
pects the Player pfa, the final x posi- 
tion, and the final y position to be on 
the stack. For example: 



TURTLE 128 60 MOVE-XY 

moves the Player TURTLE near mid- 
screen for a double-line (46) playfield. 
(Since every television is adjusted 
slightly differently, specific Player 
positions will differ from set to set. 
For this reason Atari does not utilize 
the full video screens; instead, a 
generous margin is left for poorly ad- 
justed televisions.) 



Conclusion 

The Atari Player/ Graphics is an im- 
portant feature of the Atari Personal 
Computer. Hopefully the Player 
Utilities Package will provide suffi- 
cient insight to allow serious P/M 
Graphics applications to be developed 
in FORTH. 



You may contact the author at 7659 West 
Fremont Ave., Littleton, CO 80123. 



Llst1 

BEGIN STEP-XY 
The parameters for erasing the pattern are initialized; 
The y step increment is added to the current y value; 
A check is made to see if y may be displayed; 
The X step increment is added to the current x value; 
A check is made to see if x may be displayed; 
IF the Player x and y may be displayed on the screen; 
The display parameters are initialized; 
IF the Player is currently being displayed; 

Erase the old bit pattern; 
ELSE the Player is not displayed; 

Drop the erase parameters; 
ENDIF; 

Display the Player at the new location; 
Flag the Player as currently being displayed; 
ELSE the Player is out of display range; 
IF the Player is currently on the screen; 

Erase the old image; 
ELSE the Player was not on the screen; 

Drop the erase parameters; 
ENDIF; 

Flag the player as currently not being displayed; 
ENDIF; 
END of STEP-XY. 



Table 1: Player Utilities Pacicage Glossary 

?COLLISON(bitoffset— 1) Screen45 

Return a logical value indicating whether or not the 
"bit" in collision register "offset" has been set by the 
hardware. If set then the player associated with "offset' ' 
has collided with the player associated with "bit." 

?VIDEO (value min max — value 1) Screen 47 

Determine whether or not "value" is inclusively be- 
tween the range of "min" and "max." If "value" is out- 
side the limits, return a false logical flag; otherwise 
return a true logical flag. "Value" is returned as the 
second element of the stack regardless of the limit 
check. 

CLEAR-MEM (—) Screen 32 

Clear the reserved Player/Missile graphics memory. To 
prevent disabling the Atari graphics by accidental execu- 
tion of CLEAR-MEM, the P/M graphics is defined to be 
the 4K above what the OS thinks is top of memory. (See 
RESERVE-MEM) 

CLEAR-P (pfa — to n) Screen 43 

Set up the parameters required to ERASE an old pattern. 

CLEAR-XY(pfa— ) Screen 43 

Erase the Player whose data structure pfa is on the stack. 
The pfa is pushed onto the stack by using a defined pat- 
tern (see PLAYER). 

(Continued on page 96) 
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P.O. Box 4364 
Flint, Michigan 48504 
(313) 233-5731 
(313) 233-3125 



ZANIM 

SYSTEMS 




HOME CONTROL AT YOUR FINGERTIPS 



The ZCM-1 is the Master Control module that provides the interface between your computer and our 
line of Zanim Application Modules. Up to 15 Application Modules can be piggy-backed to the ZCM-1 
Master Control module. The ZCM-1 is compatable with any standard RS-232 (serial) interface. A special 
Master Control module, the ZCM-1V is available for the VIC-20 and Commodore-64 computers. 

"The ZCM-1V is available for VIC-20 and C-64 users. 



ZAM-1 is the home control interface module that provides a fully versatile computer controlled en- 
vironment. ZAM-1 can control up to 256 different lamps and appliances in your home or business pro- 
viding you with an effective and easy to implement energy management and electric control system. 
No special modifications are necessary to your building as all control signals are sent over your ex- 
isting wiring. ZAM-1 can be programmed in BASIC or optional home control software is available. 
ZAM-1 requires one ZCM-1 Master Control module. 

"The ZCM-1/ZCM-1V Master Control module is required to use the ZAM-1 Home Control module. 



The ZAM-2 allows your computer to continuously monitor up to 15 different doors or windows around 
your home or business. ZAM-2 is a basic building block in a complete computer controlled home securi- 
ty system. With our ZAM-1 Home Control module, you can have a fully integrated security and en- 
vironment control system. Upon an intrusion, your computer can take the action most appropriate, 
whether that is to ring an alarm bell, flash all the lights around your home, or dial the police, 

"The ZCM-1/ZCM-1V Master Control module is required to use the ZAM-2 Security module. 



The ZAM-3 is a complete telephone answering and dialing system. It is capable of taking the phone 
off-hook and dialing a number under computer control or of answering the phone when it rings. With 
the ZAM-1 Home Control module and the ZAM-2 Security module, the ZAM-3 Phone Dialer module 
can be integrated into a complete home or business security/monitoring system. Applications include 
security, auto phone dialing, and computer-answering systems. 

"Pulse dialing option is available as ZAM-3P. 

"The ZCM-1/ZCM-1 V Master Control module is required to use the ZAM-3/ZAM-3P Phone Dialer module. 






SERIAL OR PARALLEL 
(CENTRONICS) PORT SWITCHER 




DOES YOUR COMPUTER 
^LOOK LIKE THIS? 

A PORT SWITCHER NOW 
AVAILABLE FOR YOUR 
COMPUTER (2SW1) 



Device A- 
Devlce B- 



Ciicle No. 54 




P.O. BOX 4364 

Flint, Michigan 48504 

(313)233-5731 

(313)233-3125 



n Please send me more information or catalogue! 



Name. 



Company 

Address 

City 



. State_ 



.Zip. 



What Make/Model Computer do you own? 



APPLE 11 IS TRADEMARK OF APPLE COMPUTERS, INC. 

CP/M IS REGISTERED TRADEMARK OF DIGITAL RESEARCH, INC. 

No. 62 -July 1983 



TRS - 80 IS REGISTERED TRADEMARK OF TANDY CORP, 
VIC - 20 AND COMMODORE ■ 64 ARE REGISTERED TRADEMARKS OF COMMODORE INC. 

MICRO 95 



Table 1 (continued) 

COLLISION-OFF (— ) Screen 45 

Reset the collision detection hardware for all players and 
missiles. 

GET-XY (pfa — X y) Screen 42 

Get the current x,y position of the player. 

MOVE-XY(pfaxy— ) Screen 50 

Move the Player to the new x,y position. If the new posi- 
tion is in the Player's graphic memory, the Flayer will 
he displayed. 



N! jnpfa— ) Screen 39 

Set the Player pattern size to "n". 

N@(pfa — n) Screen 39 

Get the Player pattern size. 

P/M-DEFAULT(playfield— ) Screen 33 

Set up the P/M graphics to "playfield" size [46 = double 
line or 62 = single line). The FORTH variables 
BYTES/PLAYER, P/M-OFFSET, and P/M-PLAYFIELD 
are initialized. In addition, each of the four Players are 
set to position (0,0) with normal size and gold color. 



P/M-OFF(-) Screen 34 

Disable the Player/Missile DMA. 
Note: The Players are moved off the screen due to a 
timing problem with disabling the DMA. Occasionally, 
turning off the DMA leaves a "solid bar" of color where 
the Player was last displayed. By moving the image off 
the screen, the visual problem is avoided. I have noticed 
no "side effects" with this solution. 

P/M-ON[— ) Screen 34 

Enable the Player/Missile graphics DMA. 

P/M-SETUP (playfield —) Screen 36 

Set up the Players to the ' 'playfield' ' default value. This 
word initializes the P/M memory, sets the Player 
defaults, and enables the P/M DMA. 

PAT@ (pfa — pattern-address) Screen 39 

Get the pattern address of the Player. 

PLA YER Compile :(Pn... Pin Play er#—) Screen 38 

Execute; ( — pfa) 
Define the Player defining word. To define a new Player, 
push the Player pattem onto the stack (bottom to top), 
followed by the number of bytes in the pattem, and the 
Atari Player number (0-3) for that pattem. Player builds 
the Player data structure required by the Player Utility 
words. For example: 

255 129 129 255 4 1 PATTERN BOX 



TELECOMMUNICATIONS on the VIC and '64! 

"A versatile and exceedingly well-done package." David Malmberg, MICRO 

"Simply the best & nicest VIC terminal software I have seen." 

Greg Yob, CREATIVE COMPUTING 

We created quite a flurry and earned rave reviews with i^ 

Terminal-40, the unique software that transforms the t 

VIC screen into a 40column smooth-scrolling display. 

And with features like a Receive Buffer and VIC rvi^ 

printer dump, Term(na/-40 sets a new standard for per 

sonal modern communications with networks such as I - 

CompuServe and Source. Our '64 Terminal does the ^ 

same quality job for the '64. ,-^ 

And now there's even MORE!!! SuperTerm for the 
VIC and '64 supports text storage to disk or tape 
and program UPLOAD/DOWNLOAD. SuperTerm, 
used with our Smart ASCII interface, also 
supports popular parallel printers. ->« 

Choose the one right for you. Call or write 

today for the "best", then 











m REACH OUT 

1 and BYTE SOMEONE! 




MIDWEST^' 
MIC RO mc :^ 

NSAS CITY •>^.* 6^1 f4 
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would create a 4-byte Player named BOX associated 
with Atari Player #1. Executing the defined pattern, 
BOX, would leave the pfa of the BOX data structure on 
the stack. This pfa is the primary Player argument in 
many of the Player Utility Package words. 

PLYR! (player# pfa — ) Screen 39 

Associate the Player data structure with Atari 
"Player#." 



PLYR@ [pfa — player#l Screen 39 

Get the Player number from the data structure. 

PLYR-COLOR [pfa color lum —) Screen 40 

Set the Player color and luminance as in the Atari BASIC 
setcolor command. (A Player can have only one color.) 

RESERVE-MEM '(—] Screen 32 

Reset the Atari top-of-memory variable in location 106 
(decimal) to reserve 4K bytes of memory for P/M 
graphics. Save the original memory value in MEM-TOP. 
This approach prevents conflict with the Atari OS. 

RESTORE-MEM [— ) Screen 35 

Disable P/M graphics and reset the original memory 
pointer in location 106 (decimal). 



SET-XY(pfaxy— ! Screen 42 

Set the Player to the absolute x,y position. 

SHOW-H(x player*—) Screen 44 

Set the horizontal position register of Player "player#" 
to "X." 

SHOW-P(pfa— X player* from to n) Screen 44 

Set up the parameters to display a Player on the screen. 

SHOW-XY(pfa— ) Screen 44 

Display a Player on the screen. This word does not 
check for a valid x,y position or set the Player video flag. 
Use with caution in the direct mode. 

STEP-XY (pfa incx incy — ) Screen 48 

Step the Player from its current position by the amount 
"incx" and "incy." This step is relative to the Player's 
current position. 

VIDEO! (displayflagpfa— ) Screen 39 

Set the Player video flag. A value of zero means that the 
player is out of the Player display space and is not 
displayed. A value of one means that the Player is 
currently displayed on the screen. 

(continued) 




SPECIALS OF THE MONTH 



OKIDATA 82A 
$419. 



COMMODORE 

64 

SCALL 




ATARI 800 

$NEW 
LOWER 
PRICE! 




COMPUTERS 

ATARI 400 $197 

ATARI 800 $598. 

ATARI 410 $74. 

ATARI 810 $439. 

COMMODORE 64 CALL 

COMMODORE VIC 20 SU9. 

COMMODORE VIC 1530 $69. 

NEC PC 8001A $739. 

NEC PC 8012A $499. 

NEC PC 8031A $739. 

SANYO MCB 1000 $1599. 

TIMEX 1000 $84. 

XEROX 5'/*" CALL 

XEROX 8" CALL 

XEROX 630 CALL 

DISKETTES 

BASF CALL 

MAXELL CALL 

TERMINALS 

TELEVIDEO 910 $589. 

TELEVIDE0 950 $945. 



PRINTERS 

DIABLO 620 $1199. 

DIABLO 630 $1675. 

OKIDATA 82A $419. 

OKIDATA 83A $699. 

OKIDATA 84P $1029. 

EPSON CALL 

NEC 8023 $479. 

SOFTWARE 

MICROSOFT CALL 

MICROPRO CALL 

ALL MAJOR BRANDS CALL 

QOMPUWAY, INQ. 

24 LUMBER ROAD 
ROSLYN, N.Y 11576 

toll free 800 6451362 
516 6211362 
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VIDEO® (pfa — displayflag) Screen 39 

Get the Player video flag. 

X! (xpfa—) Screen 39 

Set the Player x position. 

X@ (pfa — x) Screen 39 

Get the Player x position. 

Y! (ypfa— ) Screen 39 

Set the Player y position. 

Y@ (pfa — y) Screen 39 

Get the Player y position. 

Y-ADDR (y player* — addr) Screen 37 

Compute the memory address of the Player pattern in 
P/M memory. This is the vertical (y) position of the 
Player bit pattern. 



List 2 

SCR « 30 



1 < APX fig-Forth Player Graphics Utility Words 

2 < 

3 ( by Mike Dougherty 

4 ( 

5 4 These Forth Mords extend APX fig-Forth to allow easy uver 

6 ( aanipulation of the Atari BOO "Players" for educational 

7 ( app licatlona, games , et c . 



< To coepile utility Mords! 

< To cooiplle danonstration: 



i CimSTANTS M4D VARIABLES > 
1 

2 53246 CCmSTWCT P/n-HORZ 

3 33256 CONSTANT P/K-SIZE 

4 704 CONSTAKT pyrf-COLOR 

5 54279 CCmSTMYT PyM-PflSE 

6 559 CONSTMCT P/M-PLAYFIELD 

7 33277 C0NSTM4T P/M-DMA 

a 53248 CONSTAKT CCLXISION 
9 106 ca VARIABLE MEM-TOP 

10 O VARIABLE BYTES/PLAYER 

11 O VARIABLE P/H-OFFSET 



30 LOAD 
54 LOAD 



( PO horizontal position reg ) 

< PO sixe register ) 

( PO color shadow register ) 

< Painter to P/H graphics page 
( Playfield type ) 

( P/M DMA enable/disable reg ) 

( BasB colliBion ragister ) 

( To save original men size > 

< For Player — mnry size } 

< Offset in P/M nee to PO ) 



i ALLOCATE / CLEAR P/M rCMORY ) 
1. 

2 : RCSERVE-MOl 

3 106 CS MEM-TOP ! 

4 106 Ca 16 - 106 C! 

5 106 Ca P/M-PA6E C! 

6 X^ I 



CLEAR-fCM 
106 C* 236 
4096 
ERASE ) 



) 

Save original value > 
Reserve 4K for P/M graphics 
Point P/M hardware to see ) 
Reset display in new — ory 



P/M eeMory base address ) 
Number of bytes > 
Fill mith zeros ) 



(Continued on page 100} 
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BASF DISKS 



LIFETIME 
GUARANTEE 



HUB-RINGED 

5K" 



CERTIFIED 
ERROR FREE 



4 DSDD 

Boxes - $30.90 ea. 



SSDD 

$21.90 ea. -1-9 
$19.90 ea. - 10+ Boxes - $28.90 ea. 
FREE PLASTIC CASE 
WITH EACH BOX 



n SEND ME YOUR PRICE LIST 

D SEND ME BOXES AT $ 

AOD 3% SHIPPING/HANDLING ($3.00 MINIMUM) 
TWO WEEK DEUY FOR PERSONAL CHECKS 

D PAYMENT ENCLOSED $ 

(Texas residents add 5% sales tax.) 
D CHARGE MY: DMasterCard 



.PER BOX 



Card No._ 
Signature. 



DVisa 
. Exp. Date. 



Name. 



(please print full name) 



Address - 



-Apt. 



Citv- 



- State. 



. Zip . 




vt 



214-644-2611 

jSoftware 
;t'Boot 

2116 E. Arapaho #600 
Richar(Json, Tx 75081 




06E 
Circle No. 57 






VISA 



RAM 

For ATARI 

with Lifetime Warranty 



64K Board (4oo) $150 

48K Board (4oo) $115 

32K Board (40o/8oo) $ 90 

Real Time Clock (soo) $ 50 

16K Board (vic-20) $ 80 



FREE SHIPPING ANYWHERE IN U.S.A. 

Intec 

Peripherals 
Corp 

906 E. Highland Ave. 
San Bernardino, CA 92404 

(714)881-1533 HH 



VIC-20 is a Trademarii olCommodore, Inc. 
ATARI, 400, 800 are Trademarks of ATARI, Inc. 
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SAGE TECHNICAL BRIEFING 



SYSTEM DESIGN, SAgEIV 



The challenge was to create a 
computer having room for a mega- 
byte of RAM, ;j built-in Winchester 
with floppy backup, and the ability 
to perform 2,000.000 instructions 
per second 

A small miracle, in other words. 

And small is exaLCly wnar it 
turned out to be \n fact, the I6-bit 
Sage™ IV, includiricj all of the above 
attributes, takes up less than '/2 
cubic foot. 

What makes- such h nreak- 
through possible i* System design 

ft took the latest 64K dynamic 
RAMs and the Motorola 68000 
processor technology plus Win- 
chester technolcqy And it took a 
highly integrated, closely packed, 
low power high speed design 
incorporating a proprietary dus 

Now the S3ge"' IV isi eady for 
you. Actually, yoLi can choose from 
three different Sage"" IV models 
to meet your exact needs- 
configurations with a 5 megabyte 



Winchester plus 640K floppy eight " 
on up to a combination of four . 
fixed or removable Winchesters 
plus one or two floppies (200 mega- 
bytes of disk capacity in all). 

Because of the Sage''' IV's no- 
compromise '^stem design you can 
load 3 16K program in !/IO second 
from Winchester disk. 

What's more, there are over 120 
sources for existing popular pro- 
grams for the Sage"" IV The incredi- 
ble p-System operating system, 
.standard on every Sage™ IV con- 
verts software that was originally 
written for 8-bit computers in Pascal, 
BASIC and Fortran. Optionally 
CP/M-68K Modula, and Hyper- 
Forth are also available 

Better yet. our small miracles 
come with prices to match. 

So give us a call or write today for 
more Sage™ IV information and the 
name of your nearest 
dealer 



■ Weaerh United States • 
' SageComputer'Technotogy, 
35 North Edison Way #4, Reno, 
NV 89502'(702) 322-6868 

Eastern Urirted States 

Sage Computer Technology, 
1 5 New England Executive Park 
Suite 120, Burlington, MA 01803 
(617)229-6868 

lr>UK 

TDl LTD, 29 Alma Vale Road, 
Clifton. Bristol BS8-2HL 
Tel. (0272) 742796 
Tx; 444 653 Advice G 

In Germany 

MM Computer, GmbH, 
HdllwangerStr 59, 8210 Prien 
Tel. 08051/3074 
Tx:525 400mmco-d 
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SCR • 33 








O ( DEFAULT PUAYEH SRAPHICS VALUES ) 


SCR • 36 




1 




O ( P/M UTILITIES ) 




2 : P/M-DEFflOLT 


( pl«vfl.lii ) 


1 




3 DUP 44 " IF 


< I-f th» typ* is 46 than ) 


2 : P/H-SETUP < 


playfleld ) 


4 128 


t Each playar is 128 byt»s ) 


3 RESERVE-MEM < 


Allocate sea at top of RAM 1 


3 ELSE 


< Else fare, to i2 default ) 


4 CLEAR-MEM 1 


Init to zero — no players ) 


& DROP &2 2S6 


( Each playar Is 2S& bytss ) 


5 P/M-DEFflULT ( 


Set to Playar default values ) 


7 ENDIF 




6 P/n-ON 1 < 


Enable the P/M graphic DMA ) 


8 DUP BVTES/PLBYER ! 


< Sav« bytn par playar ) 


7 




•? 4 » P/n-DFFSET ! 


I Playar starts 4 doan ) 


8 — > 




10 P/M-PLAYFIELD C! 


( Savs 62 or 46 as playflsld ) 


9 




11 4 O DC 


( Dafaults for all 4 playsrs t 






12 P/n-HORZ I * C- 


< Inlt to O positicjn, of-fscrssn) 






13 P/rt-SIZE I + C! 


( Inlt siza to norsal ) 


SCR • 37 




14 24 P/M-Ca-OR 1 + C! 


< Init color to gold: SalA-fB ) 


O ( P/M UTILITIES ) 




15 LOOP 1 — > 




1 








2 : V-ADDR 


y player* addr ) 






3 106 Ca 236 • 


Set base addr for P/M eea > 






4 P/M-OFFSET ■ + 


Add offset to Player o ) 


SCR « 34 




3 S>i«> BVTEB/PLAVER • a 


Fore offset for Player n ) 


( P/M GRAPHICS UTILITIES ) 




6 + 


Add for addr of Player n ) 


1 




7 + I 


Add y displaceeent ) 


2 : P/M-ON 


( > 


8 




3 3 p/n-avt C! 1 


( Enable P/M DMA to baqin ) 


9 — > 




4 




10 




5 ; P/M-QFF 


{ > 


11 




& 4 DO 


( Mova tha playsrs of-f scraan > 






7 P/M-HaR2 I * c: 


< By setting to horz pos ) 






8 LOOP 


( else ocassional visual probs ) 






*? P/M-DMA c: ; 


( Disable P/M DMA ) 


SCR • 3S 




10 




< DEFINE A PLAYER DATA STRUCTURE 


IN THE DICTIOHARY ) 


11 — > 




1 




12 




2 : PLAYER 




13 




3 


At coapile tiae: ) 


14 




4 <BUILDS 


Pn ... PI n Player* ) 


IS 




3 , 


( Init VIDEO display f lag ) 






6 0,0, 


( Init )(,y coordinates ) 






7 10 DO O , LOOP 


( Rooa for future attributes > 






a 


( Put Player nuaber in diet ) 


SCR • 33 




9 DUP , 


< Put pattern size in diet } 


( P/M GR/V^lCg UTILITIES ) 




10 DO 


< For each pattern value ) 


1 




11 C, 


( Add byte in diet ) 


2 : RESTORE-MEX 


{ > 


12 LOOP 




3 P/M-OFF 


< Turn off P/M graphics DMA ) 


13 


( At execution tiae: ) 


4 MEM-TOP « lOi C^ 


( Restore original see Halt ) 


14 DaE5> 


< pfa > 


3 XER 1 

6 

7 — > 

8 
9 


( Reset display in new aeMiry ) 


13 1 — > 


( Siaply return pfa address ) 




SCR • 39 




10 




( COMMON PLAYER DATA STRUCTURE ENTRY POINTS ) 1 


11 
12 




2 : VIDEO* • 1 


1 pfa dlsplayflag ) 


13 




3 : VIDEO! '. > 


( displayflag pfa ) 


14 




4 : xa 2 f a 1 


(pfa » ) 


15 




5 : x; 2 + ! t 


( X pfa 1 

(Continued on page 102) 



ACORN 68666 



AnACHED 

PROCESSOR 

FOR THE 

APPLE n™ 




$1495 

HARDWARE 

• 68000 Microcomputer with 16 MHZ clock 

• 131,072 Bytes of RAM Memory 

• 32,768 Bytes of ROM Memory 

• Two RS 232c serial ports up to 9,600 bps 

• One million bps interface witti APPLE'" 

• Seven levels of vectored interrupts 

• Uea\ time clock and timer 

• Separate case and power supply 
SOFTWARE 

• Uses only one peripheral slot in the APPLE'" 

• Invisible operation with APPLESOFT or PASCAL 

• Compatible with Compilers and 6502 Assemblies 

• 68000 Assembly Language Development System 
Write or call for a free brochure or send $10 for 100 page 

users manual (refunded with order for ACORN) 

ACORN SYSTEMS INC. 

4455 TORRANCE BLVD., #108 • TORRANCE, CA 90503 
Telephone (213) 371-6307 

■Apple, Apple II and Applesoft are the trademarks of Apple Computer Co. 

Circle No. 60 



Commodore 64 & Apple II 
Assembly Language 
Debugger 




if you are developing^ 
software for the 
Commodore 64 or 
Apple II or are interested 
in assembly language programming, you needed this 
finely-crafted aid "yesterday!" All the features you'd 
expect in an advanced debugger are included - step, 
breakpoints, windowing, super-complex conditional 
breaks, symbolic debugging, patch, show prior 128 
steps, and compiled BASIC-like language. Supplied 
complete with a detailed instruction manual. A new 
data sheet is available on request. 

PTD-6510 Debugger for Commodore 64 $65.10 

PTD-6502 Debugger for Apple II and lie $49.95 

Manual (only) for above, each $10.00 

DisKit 64 Fast single disk copy 

(+ utilities) for (Commodore 64 $75.00 

■PTD-6510 (Commodore) requires 1541 disk drive. 
PTD-6502 (Apple) requires DOS 3.3, 48K. 




PTERODACTYL 
SOFTWARC- 

200 Bolinas Road #27, P.O. Box 538 
Fairfax, CA 94930 (415) 485-0714 

Circle No. 61 
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¥fhcn you 
least expect it, 

■ ■ 





In a few millionths of a second, common electrical surges and spikes 
can enter your data processing equipment and cause memory loss, 
false logic and misregistration. Surges very often do permanent 
damage to microcircuitry. 

FUXIDUCT Surge Suppressors catch surges and spikes before they 
have a chance to enter your equipment In billionths of a second 
(Nanoseconds), FUXIDUCT Surge Suppressors dissipate surges and 
spikes from any side of the line (most protect only one side). 
Model FS-P plugs into the wall outlet to protect that outlet and all 
other euHcts on that circuit. For safety, it is fused to protect from 
overloads. 

No computer should be without the protection of a FIEXHMICT Su rge 
Suppressor...«spccially yours! Write or call for further infbrmatkxi 
Available from office products retailers. 



]»V/////^/^ Surge Suppressors 

a product of Winders & Geist, Inc P.O. Box 83088 Uncoln, NE 68501 402/474-3400 
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6 : YS 4 + e 

7 : Yl A + • 


( pfa Y ) 

t y pfa ) 


SCR • 44 

( DISPLAY A PLAYER ) 




B : PLYFe 26 + e 

•9 : PLYR' 26 + ! 

10 : Ne 2a + e 


( pf« player* ) 

< playBTt p*a ) 

( pfa n ) 


2 : SHOW-P 

3 DUP Xe SWAP DUP f>LYFe SWAP 

4 DUP PATa SWAP DUP N8 SIMP 


< p-fa K plrt "iron" "to" n ) 

( Get M, player* values ) 
( Set pattern addr, size ) 


i 1 : N ! 28 + ? 

12 : Pftie 30 + 

13 


< n p-fa ) 

( p-fa pat tarn- address ) 


5 DUP Ye SWAP PLYFW Y-ADDR 

.(, SWAP ! 

7 

8 : SHOW-H 


< Set y address in P/M eeoi ) 
( X playert "froe" "to" n ) 


14 — > 

15 




( X player* ) 




9 P/H-HORZ + C\ i 


( Place value in horz req 1 


SCR • 40 




lO 




< PLAYER UTILITIES ) 


11 : SHQW-XY 


t pfa 1 


1 




12 SHOW-P 


( Set up stack ) 


2 : PLYR-COLOR 


( pfa color lua ) 


13 CMOVE 


( Move Player pattern ) 


3 SWAP 16 • + 


< Forn color/lum byte ) 


14 SHOH-H i 


( Set up horz reg ) 


4 SWAP PLYRS 


( 6«t th» Player nuaber > 


15 — > 




3 P/M-COLOR + 


( Fore Player color shadOM reg ) 






6 C! J 

7 

a — > 


< Set the shadoH register ) 


SCR • 45 






( COLLISIOW UTILITIES ) 

I 




9 




•2 : TCOU-ISIDN 


( bit offset 1 ) 






3 COLLISION + • 


( Fore addr of collision reg ) 


SCR • 41 




4 AND 1 


( nask to desired bit ) 


— > 




S 








6 : COLLISIOM-OFF 


( ) 


SCR • 42 




7 O CCB-LISIGN 30 + C! | 


( Write to disable register ) 


( Xy PLAYER UTIL 

1 


ITIES } 


a 

9 — > 




2 : SET-XY 


( p*« X y ) 






3 ROT SHtf* OVER 


( M pfa y p-fa 1 


SCR « 46 




4 V! 


1 Save y value in Player ) 


~> 




5 X.' 1 


( Save X value in Player ) 






6 




SCR tl 47 




7 : BET-XY 


( pfa K y ) 


< VIDEO LIMIT CHECK FOR PLAYER ) 




B DUP 


( Copy Player pirn. ) 


I 




9 X« 


( Bet K Player value > 


2 : 7VIDE0 


( V ein eax v 1 i 


10 SWAP YB i 


( Bet y Player value ) 


3 ROT SWAP OVER DUP >R 


( Save value: nin v eax v ) 


11 




4 < IF 


( If v > aax then . . . ) 


12 — > 




S 20ROP R> 


( Return v, FALSE > 






6 ELSE 


{ Ok, V <- eax ) 


SCR « 43 




7 > IF 


C If V < ein then ... ) 


O ( ERASE PLAYER ) 




B R> O 


< Return v, FALSE > 


L 




9 ELSE 


t Ok, V >- ein ) 


2 : CLEW-P 


i pirn -to" n > 


10 R> 1 


( Return v, TRUE > 


3 Dl^ Ne SWAP 


( Put Player size on bottoe ) 


11 ENDIF 




4 Dt^ Y8 SWAF> 


( Bet y offset ) 


12 ENDIF ; 




3 PLYR« 


f Get Player nudkier ) 


13 




6 Y-ADDR 


< Convert to screen "to" addr > 


14 — > 




7 SWAP ; 

B 

9 : CLEAR-XY 


i -to- n ) 


13 




I pfa > 


SCR • 48 




10 CLEAR-P 


( Set the "to" n argueenta ) 


( AOVAMCE THE PLAYER ) 




11 ERASE 1 


< Erase the Player ieage ) 


1 




12 




2 : STEP-XY 


pfa incx incy ) 


13 ~> 




3 >R >R DUP DUP >R CLEAB-P 


Set up erase parameters > 


14 




4 R VIDEOS R> R> R> 


Add video fig, restore stack ) 


15 









DISCOUNT COMPUTER M 



APPLE 



nslail Discount 



fciPpta* 



Eliminator 


$29.95 


21.00 


War 


24.95 


18.00 


Adventureland 


29.95 


21.00 


Pirates Adventure 


29.95 


21.00 


Golden Voyage 


29.95 


21.00 


Magic Window 


99.95 


72,00 


Temple of Apshai 


39.95 


29.00 


Upper Reaches o) Apsliai 


19.95 


15.00 


Curse o( fla 


1995 


1500 


Midway Campaign 


16.00 


12.00 


Hi-Res Computer Golf 


29.95 


21.00 


DOS Boss 


24.00 


la.oo 


The Arcade Machine 


44.95 


33.00 


Star Blazer 


31.95 


23.00 


Choplifter 


34.95 


25.00 


Serpentine 


34.95 


26.00 


Deadly Secrets 


34.95 


25.00 


Raster Blaster 


29.95 


21.00 


Bug Attack 


29.95 


21.00 


The Home Accountant 


74.95 


54.00 


Snack Attack 


29.95 


21.00 


Pig Pen 


29.95 


21.00 


Wofdrace 


24.95 


18.00 


Rendevous 


39.95 


29.00 


Russki Duck 


34.95 


26 OO 


Horizon V 


34.95 


25.00 


Sargon II 


34.95 


25.00 



ZorkI 

Zork II 

Deadline 

Mastertype 

Castle Wolfenstejn 

Supertext II 

Softcard Premium System 

Wizard and tlie Princess 

Time Zone 

Cranston Manor 

Thresliold 

Softporn Adventure 

Crossfire 

Frogger 

LaffPak 

Ultima II 

Screenwriter II 

Graphics Magician 

Pie Man 

Fastgammon 

Congo 

Goldrush 

Gorgon 

Beer Run 

Snake Byte 



Iniec 32K Board S75.00 

APPLE Compatible Disk Drive $265.oo 

VERBATIM/DATALIFE Disks $26.00 



ATARI 



39.95 29.00 Threshold (d) $39.95 29.00 

3995 2900 Snake Byte (d) 29.95 21.00 

49.95 36.00 Space Eggs (d) 29.95 21.00* 

39.96 29.00 Bandits (d) 34.95 2900 
29.96 21.00 Color Print (d) 39.95 29.00 

150.(K) 108.00 Canyon Climber (d) 29.95 2100 

775.00 600.00 Shooting Arcade (d) (t) 29.95 21.00 

32.95 24.00 Pacific Coast Highway (d) (t) 29,95 21 00 

99.95 72.00 Clowns And Balloons (d) (t) 29.95 21.00 

34.95 25.00 Woriirace(d) 24.96 18.00 

39.96 29.00 Andromeda (d) 34.95 25.00 
29.95 21.00 Deadline (d) 49.95 36.00 

29.95 21.00 Zork I (d) 39.95 29.00 

34.96 25.00 Zork II (d) 39.95 29.00 
34.95 25.00 Alien Swarm (dj 34.96 25.00 
59.95 44.00 Action Quest (d) (t) 29.95 21.00 

129.95 94.00 Ghost Encounters (d) (t) 29.95 21.00 

59.95 44.00 K-Razy Shootout (c) 49.95 36.00 

29.95 21.00 K-Razy Kritters (c) 4995 36.00 

24.95 18.00 Ultima I (d) 39.95 29.00 

34.95 25.00 All Baba and Forty Thieves (d) 32.95 24,00 

34.95 25.00 Deluxe Invaders (c) 39.95 29.00 

39.96 29.00 Gorf (c) 49.95 36.00 
29.95 21.00 Wizard of Wor (c) 49.95 36.00 
29.95 21.00 Preppie (d) (t) 29.95 21.00 

, Tigers in Ttie Snow (d) (t) 39.95 29.00 

Ghostly Manor (d) 24.95 18,00 

Raster Blaster (d) 29,95 21.00 



T=Cassette 

D=Disk 
C=Canrictge 



ATARr 



Rear Guard (d) 


24,95 


18,00 


Rear Guard (tj 


19,95 


15,00 


Caverns of Mars (d) 


39.95 


29,00 


Atari Basic (c) 


59,95 


45,00 


Star Raiders (c) 


44.95 


33,00 


Centipede (c) 


44,95 


33,00 


Pac Man (c) 


44,95 


33.00 


Pilot (c) 


7995 


60.00 


Temple of Apshai (d) (t) 


39,95 


29.00 


Upper Reaches of Apshai (t) 


19.95 


15.00 


Curse of fla (d) 


19.95 


15,00 


Midway Campaign (t) 


160O 


12,00 


Apple Panic (d) 


29.95 


21,00 


Track Attack (d) 


29.96 


21,00 


Choplifter (d) 


34.95 


25,00 


Star Blazer (d) 


31.95 


24,00 


Wizard anil the Princess (d) 


32.95 


24.00 


Jawbreaker (d) (t) 


29.96 


21,00 


Crossfire (d) (t) 


29.95 


21,00 


Frosger (d) (t) 


34.95 


25,00 


The Shattered Alliance (d) 


39.95 


29,00 


Battle of Shiloh (d) 


39.95 


29.00 


Submarine Commander (c) 


49.95 


39.00 



SPECIAL OFFERS 



MANY MORE PROGRAMS AVAILABLE 



TERMS: Send check or money order 
for total purchase price, plus $2.00 
for shipping. Ml residents add 4% 
tax. C.O.D. accepted. 

15 lilFGS, TRADEMARK 
Circle No. 63 



STROM « 



P.O. Box 197 
Plymouth, Mi. 48170 
(313) 455-8022 



SYSTEIWS INC. 



VISA AND MASTERCARD ACCEPTED L_ 



WRITE OR CALL FOR FREE CATALOG 

PHONE ORDER HOURS 

4 PM - 9 PM MON.-FRI. 

INCLUDE CARD NUMBER 
AND EXPIRATION DATE WITH 

CREDIT CARD ORDERS. 
INCLUDE TYPE OF COMPUTER, 
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5 


ROT SWrtP OVER 


( pfa to n V Ix p*a iy p*a ) 


11 DROP ( 


Drop SHOW-P pfa arg ) 


it 


va + 


( Form new y position ) 


12 IF ERASE ELSE 2DR0P ENDIF ( 


If prev visible, clear pat > 


7 


BVTES/PUAVER % 1 - 7VIDED 


( Ch«ck ii Y In graphic nam ) 


13 SWAP VIDEO! ( 


Set video flag to "off ) 


B 


0= >R 


( Sav* result of tast > 


14 ENDIF 1 


9 


OVER Y! 


< Store neH y rvgardlass ) 






10 


SWAP OVER 


( pfa to n V pfa incx p-fa ) 






11 


xa -i- 


( Form now x position ) 


SCR • 32 




12 


255 -PVIDEG 


( Chock a X in graphic maa ) 


IS 




13 


0= >R 


i Save rasult oi test ) 






14 


OVER X? 


( Store n«M x regardless ) 


SCR • 53 




15 






iS 




Lists 




SCR 


• 49 











R> R> + 0= IF 


( Teat for Player on acrean ) 


SCR • 54 




1 


5HOW-P >R >R >R >R >R 


( Yea, aet up/aava ahOM paraaa > 
( If pravioualy on screan ) 




2 


IF 




UTILITY ) 


3 


ERASE 


( Erase current inaga ) 


1 




4 


ELSE 




2 WX 

3 

4oeoeoe7Foeoeoe 

s 


Define soaa Playara ) 


S 


2DR0P 
END IF 


( Else ignore eraaa paraas ) 


07 GO PLAYER CROSS-HAIRS 


7 


R> R> R> R> R> 


( Raatora shoM paraaa > 




B 


OiOVE SHOW-H 


C nova pattern, aet horz rmq ) 


6 7C FE FE S& OF OE 
7 

B 49 2A IC S 7F 7F S 5D 49 IC IC 
9 
10 A2 66 F6 FE FE C6 BA FE D6 7C 36 


06 01 PLAYER DUCK 


9 
10 


1 SWAP VIDEO! 
ELSE 


( Set video flag to "on" ) 


Oa DC 02 PLAYER TURTLE 


11 


DROP 


( Drop SHOW-P pfa arg ) 


OB 03 PLAYER 6HOST 


12 


IF ERASE ELSE 2DR0P ENDIF 


< If prav viaibla, clear pat ) 


11 

12 DECIMAL 

13 




13 
14 


SWAP video: 

ENDIF 1 


{ Set video flag to "off ) 




IS 


— > 




14 — > 




SCR 


• SO 




13 






1 


< MOVE T>C PLAVER ) 




SCR • 59 

( RANDOM NUrSER WORDS ) 




2 


: MOVE-XY 


( pfa X y > 


I 




3 


>R >R DUP DUP >R CLEAR-P 


( Set up erase paraoetors ) 


2 53770 COKSTAWT RANDOM-REe ( 


Atari randoa H/W register ) 


4 


R VIDEOa R R> R> R> 


( pfa to n v pfa pfa x y ) 


3 




5 


BYTES/PLAYER ^ 1 - 7VIDE0 


< Check if y in graphic aea ) 


4 : RM4D < 


Bod random ) 


6 


0« >R 


( Save VIDEO atatua ) 


9 RANDOn-REG Ctt C 


Get poa 8blt random value ) 


7 


SWAP 


< Sat X value ) 


6 SWAP nOD 1 < 


Reduce to + 0, 1,2, . . -mod-l > 


B 


2^ 7VIDE0 


( Chock if M in graphic oea ) 


7 




9 


0- >« 


( Save VIDEO atatus ) 


a : RANDon ( 


mod random > 


10 


SWAP SET-XY 


< Save M^y valuaa In Player ) 


9 RANOOn-REG C« 256 • ( 


Gat MSB for random nua*>ar ) 


11 






10 RANDOn-REG Ctt -•- ( 


Sat LSB, coafaine bytes ) 


12 


— > 




11 SWAP nOD 1 ( 

12 

13 : RANOOrt-XY ( 


Reduce to +/- 0, 1,2, . . .mod-1 ) 


SCR 


• Si 




mod xlnc yinc ) 





R> R> * 0- IF 


< Test for Player on screen > 


14 DUP RANDOM ( 


Get +/- random x-l ) 


1 


SHOW-P >R >R >R >R >R 


( Yea, aet up/aava ahoM paraaa ) 


IS SWAP RANDOM | — > ( 


Get +/- random y-1 > 


2 


IF 


( If pr»vloualy on screen ) 






3 


ERASE 


( Erase old Player laaga ) 


SCR • 36 




4 


ELSE 




< MOVE PLAYER RANDOMLY > 




5 


2DROP 


( Else ignore eraaa paraaa ) 


1 




it 


ENDIF 




2 : RANOOM-nOVE ( 


pfa mod > 


7 


R> R> R> R> R> 


( Raatora ahoM paraMS ) 


3 RANDOM-XY ( 


Get random Incx, incy ) 


B 


CliOVE SHOW-H 


( nova pattern, aet horz reg ) 


4 STEP-XY J < 


Step to new position J 


9 


1 SWAP VIDEO! 


( Set video flag to "on" ) 


5 




10 


ELSE 




6 : RANDOM-TEST < 


pfa mod — ) (continued) 



EVER WONDER HOW YOUR APPLE II WORKS? 

QUICKTRACE will show you! And It can show you WHY when it doesn't! 

This relocatable program traces and displays the actual machine operations, while it Is running and 
without interfering with those operations. Look at these FEATURES: 



SInglm-Stmp mode displays the last instruction, 

next instruction, registers, flags, stack contents, 
and six user-definable memory locations. 

Trace mode gives a running display of the Single- 
Step information and can be made to stop upon 
encountering any of nine user-definable 
conditions. 

Background mode permits tracing with no display 
until it is desired. Debugged routines run at near 
normal speed until one of the stopping cond- 
itions is met, which causes the program to return 
to Single-Step. 



QUICK TftACE allows changes to the stack, 

registers, stopping conditions, addresses to be 
displayed, and output destinations tor all this 
information. All this can be done in Single-Step 
mode while running. 

Two optlonmf dfapfay formata can show a sequence 
of operations at once. Usually, the information 
is given In four lines at the bottom of the screen. 

QUfCKTtUKCE is compfetely transparent to the 
program being traced. It will not interfere with 
the stack, program, or 110. 



QUICKTRACE is relocatable to any free part of 

memory. Its output can be sent to any slot or to 
the screen. 

QUICKTRACE is completely compatible with 

programs using Applesoft and Integer BASICS, 
graphics, and DOS. (Time dependent DOS 
operations can be bypassed.) It will display the 
graphics on the screen while QUfCK TRACE is 
alive. 

QUfCK TRACE is a beautiful way to show the 

incredibly complex sequence of operations that 
a computer goes through in executing a program 



QUICKTRACE requires 3548 (SEOO) bytes (14 pages) of memory and some knowledge of machine language programming 
QUICKTRACE was written by John Rogers, tt will run on any Apple II or Appte II Plus computer and can be loaded from disk or tape. It is supplied on disk with DOS 3.3. 
QUICKTRACE is a trademark of Anthro-Oigital, inc. 

QUICKTRACE DEBUGGER 



Last Instruction 



Stack 



Last address 

FF69- 



A9 A A 



Dfaaaaembfy 

LDA #$hA 



Top tann bytn of stock Procmor codat Utar defined location i Contanf 

Sl-^-7C Al 32 D5 43 D4 CI NV-BDIZC 0000-^4C 



Accumufator X reg. Y reg. 

contenu A--=AA X=^9S Y^Z'j 



Next imtwciion F~F-6B— 85 33 



Circle No. 64 



Stack pointer Proceaaor ttatua Content ol teleienced eddnaa 

SP:=F2 PS::::: 1 Q U 000 1 [ ] =00 



Dfaaaaembty Raference address 

STA 1;33 I $0033] 



Anthro-Digitai, Inc. 

P.O. Box 1385 
Pittsfield, MA 01202 

413-448-8278 
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7 BEGIN 


( Until a key is hit > 


SCR 


tt bO 




B 2DUP 


( Dup w-guannts ) 





^ DEFINE A RANOOn JUnPIN6 riOVE 




9 RANDOM-MOVE 


( rtave at randon > 


1 






10 7TERMINAL UNTIL 


( Continue until • k»y ) 


2 


: JUMP-MOVE 


< pfa +dolx +dBly ) 


11 2DROP ; 


( Claan up stack ) 


3 


RANDOn-REB « 3 AND 0= IF 


( Move 1 of 4 times ) 


12 




4 


RANDOM 


< Set randoe y: -dely<y<+dely > 


13 S4016 CONSTWNT PORTS 


( Base addTBM for PORTA,B ) 


5 


BYTES/PLAYER 8 2/ 


< Set the y center paint ) 


14 5 VARIABLE JOY-STEP 


( Increflwnt for Joy stick step > 


6 


■•■ 


( For A new y position ) 


15 — > 




7 


SWAP RANDOM 


( Get randoe x: -delx<x<+dolx 1 






8 


128 


< Set the X center point ) 


SCR # 57 

O ( JOY STICK UTILITY WORD > 




9 


+ 


( FoTA net* X position ) 




10 
11 


SWAP 
MOVE-XY 


( Restore xy order on stack ) 
( Move Player ) 


1 




12 


ELSE 


t Do not aove this tine ) 


2 : JOY-XY 


( stick xinc vine ) 


13 


DROP DROP DROP 


( Clean up stack ) 


3 PORTS 


< BaM Address far I/O ports » 


14 


ENDIF } 




4 OVER 2 / + 


( Add 1 if stick m 2,3 > 


15 


— > 




s ce 


< B^ the port value > 








& SWAP 2 HOD IF 


( Test far stick - 1,3 > 








7 16 / 


( Yes, Shift MSB down > 








G ENDIF 

9 15 AND 15 XOR 


< Cl««n, use positive logic ) 


SCR 



tt 61 

( INITIALIZE PLAYERS FOR DEMO ) 




10 DUP 4 / DUP IF 


( Teet bits R,L for sat > 








11 2 < 3 - JOY-STEP e * 


( Yes, convert to +/- 1 > 


2 


: 1 NIT-PLAYERS 


/ ) 


12 ENDIF 

13 SH«» 3 AM} DUP IF 


( Else leave zero for x ) 
< Test D,U bits for set > 


3 
4 

5 


4 8 1 SETCOLOR 2 8 1 SETCOLOR 1 B 1 SETCOLOR 1 


14 2 * 3 - JOY-STEP « ♦ 


( Yes, convert to +/- 1 ) 


COLLI SION-QFF 




15 ENDIF 1 — > 


( Else leave zero for y ) 


& 


DUCK BYTES/PLAYER 8 2/ 


SET-XY 


SCP # 58 

( MOVE PLAYER ACCORDING TO JOYST 




7 


DUCK 15 10 PLYR-COLOR 




ICK 1 


e 


TURTLE 128 BYTES/PLAYER 8 2/ 


SET-XY 


1 




9 


TURTLE 12 4 PLYR-COLOR 




2 : JOY-MOVE 


( pfa stick ) 


lO 


BHOST 12B BYTES/PLAYER 8 2/ 


SET-XY 


3 JQY-X Y 


( Get incx. incy fro* joystick ) 


11 


BHQST O IS PLYR-COLOR 




4 OVER ABS OVER ABS * IF 


( Joy stick met 7 ) 


12 


CROSS-HAIRS 128 20 SET-XY 




5 STEP-XY 


( Yes, step to net* position ) 


13 


CROSS-HAIRS 4 8 PLYR-COLOR 




6 ELSE 


t Ho, Joy stick not in us* ) 


14 


CROSS-HAIRS SHOM-XY ; 






< Ignore ) 


IS 


> 




e ENDIF J 
10 : JOY-TEST 










( pfa stick I 








11 BEGIN 


( Beqin until key ) 


SCR 


tt 62 




12 2DUP 


1 Duplicate vguisents. } 





< DEMONSTRATE PLAYER MOTION i 




1 3 JOV-»«}VE 


( Move according to Joy stick ) 


1 






14 ?TERIiINAL UNTIL 


( Until a key is hit > 


2 


; DEMO 


( > 


15 2DR0P J — > 


( Clean up stack ) 


3 


46 P/M-SETUP 


( Setup playfield. Players ) 






4 


BE8IN 


( Loop unti 1 ■ key press } 






5 


INIT-PLAYERS 


( Initialize the Playwrs J 


SCR • 59 




6 


BEGIN 


< Loop until a PO collision > 


< DEFINE A HORIZONTAL MOVE ) 




7 


DUCK 5 HORZ-MOVE 


( Hove DUCK horizontally ) 


1 




a 


TURTl^ 3 RANDOM-MOVE 


( The TURTLE »«bhles around ) 


2 : HORZ-nOVE 


( pfa stepsize > 


9 


GHOST 64 32 JLffV^-HDVE 


( The BHOST juaps all around 1 


3 OVER 6ET-XY 


( Bet the current xy position ) 


lO 


CROSS-HAIRS O JOY-fUVE 


< Chase Mith the crosshairs ) 


4 ROT ROT + 


( Add the stepsize to « > 


11 


255 12 7COU-ISION UNTIL 


( Bo until crosshairs gets one l 


5 255 AND 


( Keep in Player display space ) 


12 


BEEP 


( Signal the hit ) 


6 SWAP 


( Restore xy order on stack ) 


13 


?TERM1W«- UNTIL KEY DROP 


( Repeat until key - ignore it } 


7 «ove-XY ; 


( Move the Player ) 


14 


RESTORE-rCM ; 


{ Reset Atari screan/e«n > 


8 




15 


iS 




9 — > 











NEWS FLASH! 



' CBM-64 



INTERESTING SOFTWARE 



AUGUST 1983 



GRAFDOS NOW 
AVAILABLE FOR CBM-64 

After a year of development. GRAF- 
DOS, an enhanced new disk operating 
system will make life easier for 
thousands of disk owners. No longer do 
you have to use the cumbersome wedge, 
GRAFEKDS provides over 40 new com- 
mands for both DOS and BASIC- Below 
is a list of new commands: 

DOS COMMANDS 



LOACynie name" 


CATaiog 


SAVETilename' 


INIT 


RUNTilenanK" 


WATCH 


BLOADTilcname" 


OFF 


BSAVETilename" 


STAT 


RENAME 


CHAIN 


DELETE 




BASIC COMMANDS 


- HIRES 


PLOT 


FLIP 


HGR 


WCHAR 


SCREEN 


DRAW 


ALT 


COPY 


NORM 


PIC 




PSAVE 


LORES 




LGR 


HLIN 


LCOL 


VEIN 



LPLOT 

MISC. COMMANDS 

KEY VTAB 

SOUND HTAB 

HOME HIMEM 

TRAP SPEED 

TEXT EXIT 

BASIC CTRL-G 



As an added bonus. GRAFDOS 
includes the MINl-MON, a powerful 
machine language monitor and mini- 
assembler with 20 commands! (See 
description below.) 

The disk also comes with sample 
programs and demos including a music 
generator! 

This is a DOS that every CBM-64 
owner should have on every disk! 

ORDER NOW. ONLV $39.95 



MINI-MONITOR 
NOT SO MINI! 

A powerful machine code monitor 
which is not so mini has 20 commands 
to: 

Disassemble 6502 code 
Examine memory 
Text dump 
Move memory 
Hunt memory for a string 
Fill memory with any byte 
HEX - DEC conversion 
Edit code 
Mini-assembler 
Switch kemaJ to RAM 
Switch BASIC to RAM 

The only thing mini in This monitor is 
the price! VIC-20 version requires 8K 
expansion - 

Cassette $15.95 

Disk $19.95 



PROTECT VOIR INVESTMENT 
WITH AHRACTIVE DUST COVERS! 

After investing several hundred dollars 
in a computer or disk drive, protect it 
f(vm harmful dust or liquid spMls. Dust 
covers are made of durable, water resis- 
tant, brown canvas. 

For computer or disk $7,95 

Old style datasette $5.95 

New style datasette $5.95 

MORE BOOKS BECOME 
AVAILABLE FOR VIC-20 

Our selection of books is becoming 
larger with special discounts for our cus- 
tomers! OUR 
LIST prk:e 

KIDS ANDTHE VIC 19.95 13.95 

VIC 20 USERS GUIDE 15.95 1195 

VIC GRAPHICS 12.95 9.95 

VIC REVEALED 12.95 9.95 
STIMULATING 

SIMULATIONS d.SO 4.95 
I SPEAK BASIC 

TO MY VIC 8.45 6.75 

SUPER FAST GAMES FOR 
THE VIC 20 

New aliens have been found invading 
thousands of VIC's. They come in all 
shapes and sizes terrorizing VIC owners 
everywhere. Now, you too, can shoot it 

out with these menaces! 

OUR 

LIST PRICE 

SCORPION can 19 95 29 95 

OEAOLY SKIES cart- 39.95 29 95 

GOLD FEVER can. 39.95 29 95 

CRATER RAIDER cart. ,14 95 26.95 

CYCl-ON can. 34 95 26.95 

S/DEWINDER 8K cass. 29.95 19.95 

SWARM CHS,', 29 95 19 95 

GALACTIC BLITZ cass. 24.95 I6.9:i 

QUACKERS cass 15 95 11,95 



PEN P.A.L. HELPS 
PROGRAMMERS 

P.A.L. . which stands for Program- 
mers Aids and Logs, is a perfect comple- 
ment with the Users and Reference 
manuals. It provides 95 pages of color 
coded tear-oul wori(sheels including: 
REFERENCE charts 
CHARACTER worksheets 
SCREEN layouis 
EZ GRAPH graphic aids 
FLOW CHARTING aids 
TRICKS AND HINTS 
TAPE CASSETTE log book 
BASIC dictionary 

This is sure to become a MUST item 
for every programmer, Regulariy $9.95, 
our price is only $7.95. 

STELLAR TRIUMPH 

A great new. all machine code game is 
now available for your CBM-64. 
Features exciting hires color graphics 
and spectacular sound effects. A two 
player game with many variations such 
as reverse graviiy, bounce back, speed 
control, and more. Prepare yourself into 
an all-out space battle. 

From HAL. Labs 
lapeordisk $24.95 

INTERESTING SOFTWARE 

21101 S. Harvard Blvd. 

Torrance, CA 90501 

(213) 328-9422 

Visa/MC/Check/Money Order- Add $2.00 
CA residents add 6'/:% sales tax. 
£}ealer inquiries invited. 
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Table 2: Player Utilities Package Demonstration Glossary 



DEMO(— ] Screen 62 

Demonstrate the Player Utilities package with four 
types of motion and Players. The CROSS-HAIRS pattern 
is under joystick 1 control. To end DEMO, press any key 
other than BREAK and catch a player with the CROSS- 
HAIRS. 

HORZ-MOVE(pfastcpsize— ) Screen 59 

Move the Player horizontally "stepsize" units (right is 
positive). 

INIT-PLAYERS j— ) Screen 61 

Brute force initialization of players for the demon- 
stration. 

JOY-XY (stick — xincyincj Screen 57 

Sample the joy "stick" (0-3) and convert to x,y 
displacements of -i- / - JOY-STEP units. 

JOY-MOVE (pfa stick—) Screen 58 

Move the player according to the joy "stick" position. If 
the joy stick is not being used then the player is not 
moved. 



. Screen 58 



JOY-TEST Ipfa stick — ) 

Test the joy stick movement. 

JUMP-MOVE (pfa -t-delx -i-dely— ) Screen 60 

Jump to a random position centered around the middle 



of the screen. The range of the random offset is + / ~ 
"delx"-land +/- "dely"-l. This jump is performed, 
on the average, every fourth time JUMP-MOVE is exe- 
cuted. (The Atari RANDOM-REG is used to yield a 1 in 
4 probability that JUMP-MOVE actually will be 
performed.) 

RAND (mod — random ) Screen 5 5 

Get a positive random number between and "mod"-l. 
"Mod" must be 255 or less. 

RANDOM (mod — random) Screen 55 

Get a random number in the range of -i- / - , . . 
"mod"-l. "Mod" maybe any 16-bit FORTH number. 

RANDOM-XY (mod — xinc yinc) Screen 55 

Get random x,y increments in the range of -t-/-0 ... 
"mod"-l. 

RANDOM-MOVE(pfamod— I Screen 56 

Move the player at random from the current position. 
The step sizes are chosen randomly in the range of -t- / - 
... "mod"-l. 



RANDOM-TEST [pfa mod—) 

Test the random move of a player. 



.Screen 56 
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MODEMS/CRTS/PRINTERS/SWITCHES/MICROCOMPUTERS/CABLES 


E 
u 

s 

s 

in 

e 
III 

S 
a. 


PRODUCT DESCRIPTION LIST 


YOUR 
COST 


PRODUCT DESCRIPTION LIST 


YOUR 
COST 


0/) 

J. 

09 
O 

m 

Ie 

in 

Ul 

B 

< 
U 


UDS 103LP, 300 bp!. Modem 145 
UDS 202LP, 1200 bp!. Half Duplex Modem 195 
UDS 212LP, 1200 bps. Full Duplex (212A1 Modem 445 
U.S. Robotics Auto Dial 212A, 300/1200 Full Duplex Modem 599 
Incomm Auto Dial 212A, 300/1200 Full Duplex Modem 599 
Cermetec Auto Dial 212A, 300/1200 Full Duplex Modem 535 
Microband Auto Dial 212A, 300/1200 Full Duplex Modem 695 
Rixon Intelligent Modem, 300/1200 (10 Number! 495 
Rixon PC 212A (IBM PC Modem CardI 300/1200 495 
Incomm Multi Dial 300/1200 (10 Number! 795 
U.S. Robotics Password 300/1200 (Auto Dial) Modem 495 
U.S. Robotic! Courier, Osborne, 300/1200 Modem 518 
U.S. Robotic! S-100, 300/1200 Auto Dial Modem 496 


130 

150 

CALL 

475 

450 

495 

495 

CALL 

CALL 

560 

CALL 

CALL 

CALL 


Incomm AB Switch, 8 Pin 1 20 
Incomm AB Switch, 25 Pin 159 
Incomm ABC Switch, 25 Pin 1 98 


84 
98 
138 


IDS Breakout Box (Blue Box! 159 
Incomm Breakout Box (Bob! 1 50 


140 
120 


Epson, HX-20AA 795 
Epson QX-10/256K 2995 
Zenith Z-100 4000 


CALL 
CALL 
CALL 


T-7MM. 7 Pin, 4 Wire, Telephone Cable (Modular Plugs) 10 
S-975, Modular Double Adapter 7 
EIA 9/5, RS 232, 9 Pin Cable, 5 FT MM/FF/MF 1 5 
EIA 25/5, RS 232, 25 Pin Cable, 25 FT MM/FF/MF 22 
EIA 50/5, Centronics Parallel Cable, 5 FT (36 Pin) 30 
MC 0050/10, Centronics 10 Ft. MM Cable, 36 Pin (10 FT| 38 
7010/5, IBM PC Printer Cable w/36 Pin 40 
3010/5 Apple M Printer Cable w/36 Pin 27 
9010/5, Atari Printer Cable v>/36 Pin 30 


7 
5 
12 
14 
21 
25 
22 
18 
21 


Vi!ual 50 CRT 695 
Freedom 100CRT,w/20 F,keys8i Editing 595 
Incomm Remote Station 1, w/lntegtated 3UO/1200 Modem 1295 


550 
550 
995 


Epson MXaO/Graftrax+ 650 
Epson MX80 FT/Graftrax + 700 
. Epson MX100/Graftiax+ 900 
Epson FX-80 750 
Star Micronics Gemini 10 399 
Star Micronics Gemini 15 649 
AJ Letter Quality Printer, 30 CPS (KSRI 1450 


399 
498 
700 
656 
350 
548 
1250 


U.S. Robotics Telpac 79 
Rixon PC Cora 1 (IBM PC Software) 69 


CALL 
CALL 


ORDER TOLL FREE 

TOUMAYAN & ASS0CIA1 

115 N. Wolf Rd. 
Wheeling, IL 60090 

c.e.o. 312-459-8866 


- 1-800-323-2666 

ES We Welcome: 

•Visa, Mastercharge 
•Checks 
•Company P.O. 
•C.O.D. (Add. $1.50/Shipm 


ent) 
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Pascal 
Solitaire 



by Alan D. Fleeter and Valerie A. Fleeter 




This Pascal program for the Apple allows the computer 
to play Las Vegas Solitaire. 



The Solitaire program, though trivial 
as a game, points out some pro- 
gramming practices that work very 
well in Pascal, but can also be used in 
other languages. The main point is to 
break down the program into logical 
steps. Too many programming courses 
teach you to use subroutines only Lf 
you have some repetitive code, but 
subroutines make the program more 
readable and understandable. Pascal's 
procedures make it easy to get these 
results, but BASIC can use GOSUBs, 
and assembly language has JSRs. As a 
rough rule of thumb when we program 
— whether at home or work and in any 
language — we write code as 
subroutine calls, keeping each routine 
to roughly one page of paper. Keeping 
the functions separate makes debugg- 
ing easier; you know where to look if a 
certain part of your program doesn't 



Solitaire 

requires; 

Apple II with Pascal 
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work. This is one area where a lot of 
new programmers lack skills. 

The other technique used in this 
program deals with the type of data 
structure used. In this case Pascal really 
shines. Creating stacks for each pile of 
cards and then writing procedures to 
PUSH and POP not only makes the pro- 
gram look nicer, it makes it a lot easier 
to program. How you represent your 
data is very important. 

Before starting the actual writing 
we broke the Solitaire game into 
several steps, with each step eventually 
becoming a procedure. For those un- 
familiar with Pascal, you can think of a 
procedure as a subroutine. Pascal 
prefers procedures to be defined before 
they are used, so the actual mainline of 
the program is at the very end. This is 
sometimes bothersome because you 
have to go backwards through the pro- 
gram to understand what is going on. 

The main procedures are SHUFFLE, 
I mAL, NEWCARD, PLAYOUT, MOVE- 
WASTE, MOVEFILE, and DISPLAY. 

The method used to SHUFFLE the 

deck of cards is very simple. A random 

(Continued on page 111) 
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Las Vegas ^ 
^ Solitaire Rules 

In the book, Fundamentals of 
Data Structures, Ellis Horowitz 
and Sartaj SahnI explain the Las 
Vegas rules. Since they did such 
an excellent job, we will quote 
them here for those readers who 
are unfamiliar with the game. 

"To begin the game, 28 
cards are dealt Into 7 piles. The 
leftmost pile has 1 card, the 
next has 2 cards, and so forth 
up to 7 cards in the rightmost 
pile. Only the uppermost card of 
each of the 7 piles is turned 
face up. The cards are dealt left 
to right, one card to each pile, 
dealing to one less pile each 
time, and turning the first card 
in each round face up. 

"On the topmost face up 
card of each pile you may build 
in descending sequences red on 
black or black on red. For 
example, on the 9 of spades you 
may place either the 8 of 
diamonds or the 8 of hearts. All 
face up cards on a pile are 
moved as a unit and may be 
placed on another pile 
according to the bottommost 
face up card. For example, the 7 
of clubs on the 8 of hearts may 
be moved as a unit onto the 9 of 
clubs or the 9 of spades. 

^♦«4¥4«4V4*4V««4¥4«4^ 
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"Whenever a face down card 
is uncovered, it is turned face 
up. If one pile is removed 
completely, a face-up King may 
be moved from a pile (together 
with all cards above it) or the 
top of the waste pile (see below) 
into the vacated space. There 
are four output piles, one for 
each suit, and the object of the 
game is to get as many cards as 
possible into the output piles. 
Each time an Ace appears at 
the top of a pile or the top of 
the stack it is moved into the 
appropriate output pile. Cards 
are added to the output piles in 
sequence, the suit for each pile 
being determined by the Ace on 
the bottom. 

"From the rest of the deck, 
called the stock, cards are 
turned up one by one and 
placed face up on the waste 
pile. You may always play cards 
off the top of the waste pile, but 
only one at a time. Begin by 
moving a card from the stock to 
the top of the waste pile. If 
there is ever more than one 
possible play to be made, the 
following order must be 
observed: 

"1. Move a card from the top 
of a playing pile or from the top 
of the waste pile to an output 



pile. If the waste pile becomes 
empty, move a card from the 
stock to the waste pile. 

"2. Move a card from the top 
of the waste pile to the leftmost 
playing pile to which it can be 
moved. If the waste pile 
becomes empty move a card 
from the stock to the waste pile. 

"3. Find the leftmost playing 
pile which can be moved and 
place it on top of the leftmost 
playing pile to which it can be 
moved. 

"4. Try 1, 2, 3 in sequence, re- 
starting with 1 whenever a move 
is made. 

"5. If no move is made via 
1-4, move a card from the stock 
to the waste pile and retry 1. 

"Only the topmost card of 
the playing piles or the waste 
pile may be played to an output 
pile. Once played on an output 
pile, a card may not be 
withdrawn to help elsewhere. 
The game is over when either all 
the cards have been played to 
the output or the stock pile has 
been exhausted and no more 
cards can be moved. 

"When played for money, the 
player pays the house $52 at the 
beginning and wins $5 for every 
card played to the output piles." 

4 
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>^lMDEK...your guide to 










MODEL DXY PLOTTER 

Economical X Y coordinate plotter • 1 ' 
X 14' plotting range • Cpntronics mler- 
face « ROM exoaiidaUe • 4 pens, hold- 
ers and ctiart hold-downs included 






YOUR COMPATIBILITY CHART 


MORE COMPATIBILITY INTERFACES DUE SOON . . . CHECK FACTOR 


1 


^^H COMPUTER 


MONITORS 


PLOTTER 


AMDISK III 


NOTES 




VIOEO-300 


VIDEO-310 


COLOR-I 


COLOR-II 


COLOR-IIA 


COLOR-III 


COLOR-IV 






^^H IBM-PC 


• 


• 


• 


• 


* 


• 




• 


• 


* Special Cabling Required 




^^H APPLE W 


• 






* 


* 


• 




• 




* Special Cabling or 
Converter Required 




^^1 APPLE II 


• 




• 


* 


* 


* 




• 




* DVM Board Required 


■ 


^^H ATARI 800 


* 




* 














* Opt, Atari Cable Required 




^^H VIC-20 






* 














* Opt. VIC Cable Required 




^^H TRS-80 


* 


















* Opt. IRS Cable Required 




^^^1 Ostiorne 


* 


















* Opt. Interface Required 




^^1 TI-99 






* 














* Opt. Tl Cable Required 




^^^1 Coinmodore-64 


* 




* 














* Opt, Commodore Cable Req 







Innovative computing ! 



NEW 2 YEAR WARRANTY! 



ibee details at dea. 
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AMDISK III MICRO-FLOPPY DRIVE 

Revolutionary 3 ' Micro Floppydisk dnve S cartridges • 1 
Megabyte (unformatted) storage • Track to-track compatible 
jvith 5*4'' floppydisk drives • Built-in power supply 'Hard 
plastic protective floppydisk cartridge 
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Amdek Corp. is dedicated to marketing quality compu- 
ter peripheral equipment to enhance the use of popular 
personal computers. Our research & development staff 
keeps abreast of progress in computer techology and 
equipment and strives to offer you state-of-the-art ad- 
vances in peripheral equipment. 



Amdek products are distributed nationwide and in Cana- 
da through major distributors. And, we have factory- 
trained manufacturer's representatives ready to serve 
you in every major marketing area. Amdek offices are 
located in Chicago. Los Angeles & Dallas. 

Just circle the reader service number, or contact us to 
receive complete technical specifications on these 
Amdek products. 



2201 Lively Blvd. • Elk Grove Village. 
(312)364-1180 TLX: 2; 



REGIONAL OFFICES: Calif (714)662-3949 
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PERCOM" HARD DISK DRIVES FOR IDM 
TRS-80 MODELS I, If, III" 

5 megabyte 

5 megabyte, add-on 

10 megabyte 

10 megabyte, add-on 

PERCOM" FLOPPY DISK DRIVES FOR: 

TRS-M MODEL |tm _ WHIi FREE DOSPUIS 3.4TM 

Single sided/Double density, single unit 

Single sided/Double densi^, dual unit 

Double sided/Double density, single unit 

Double sided/Double density, dual unit 

TRS-80 MODEL IHTM — With FREE OOSPLUS 3.4TM 

Single sided/Double density, single unit (internal) 

Single sided/Double density, dual unit (intemal) 

Double sided/Double density, single unit (intemal) 

Double sided/Double density, dual unit (intemal) 

ATARITM 

Single sided/Single density, first drive 

Single sided/Double density, first drive 

Double sided/Double density, first drive 

IBM-PC™ 

Single sided/Double density 

Single sided/Double density 

Double sided/Double density 



single unit (internal) 
dual unit (internal) 
, single unit (internal) 



Double sided/Double density, dual unit (intemal) 

BIG DISCOUNTS ON PRINTERS! 

New BROTHER HRITM 
MICROPRISMTM 
C. ITOH F-10TM 
TRANSTAR 130™ 
TRANSTAR 140TM 
OKIDATATM_ All Models 
STAR MICRONICSTM 



Only $1395.00 
Only $1295.00 
Only $1795.00 
Only $1695.00 



Only $275.00 
Only $500.00 

Only $350.00 
Only $650.00 

Only $449.00 
Only $899.00 
Only $560.00 
Only $860.00 

Only $475.00 
Only $559.00 
Only $679.00 

Only $279.95 
Only $529.95 
Only $359.95 
Only $699.95 



Your Price — Only $ 980.00 
Your Price — Only $ 699.00 
Your Price — Only $1495.00 
Your Price — Only $ 895.00 
Your Price — Only $1695.00 

Call For Low Price! 

Call For Low Price! 



THE AMAZING JBEX 7202 

THE POWER OF A BUSINESS 
COMPUTER AT A PERSONAL 
COMPUTER ^^ui^ltiS^ 

PRICE! \5uR PRICE 5^^5951^ TOTAL 

This computer features dual 8-inch double-sided, double-density floppy 
disks, with the format software selectable. Because it supports the IBM 
3740 industry-standard format, as well as double-density, data exchange 
with most other computers is possible. 
• Easy-to-read video screen with high contrast green phosphor • 
Selectable 40, 80, or 132 characters to display a full width report • 
Programmable cursor control, high-speed scrolling, and other video 
attributes • Industry-standard parallel Interface for printer • Serial 
interface hardware (async, bisync, etc.) • More available user 
memory because ROMs and video refresh are bank-switched out • 
Memory parity check • Floppy disk capacity 2.4MB • Winchester hard 
disk available • A battery-driven clock/calendar • Strong, compact, and 
styled for the office environment • CP/M" operating system and 
MBASIC language included 

PLUS BIG DISCOUNTS ON SOFTWARE! with ibex Purchase 

With IBEX 
$290.00 



Reg. Retail 

$495,00 



WORD STAR $495.00 

MAILMERGE $250.00 

CALCSTAR $145.00 

ads™ BUSINESS SOFTWARE PACKAGES 
Verticals: 

Contract Services, Private Clubs $895.00 

Retail Florist, Churches $895.00 

Accounting: 

Accts. Pay., Accts. Rec, Payroll $495.00 
General Ledger. Invoicing $485.00 



$130.00 
$ 95.95 



Call For Low Price! 
Call For Low Price! 

Call For Low Price! 
Call For low Price! 



With FREE Source ' 

MARK I with RS232C interface 

MARK II with Atari interface 

MARK III with Tl Interface 

MARK VI with IBM Interface 

MARK VII with RS232C interface & auto answ/orig. 

MEDIA FOR LESS 

SENTINALT^* complete with hub rings & one year 

Single sided/Single density 5%" 

Single sided/Double density 5%" 

Double sided/Double density 5%" 

Single sided/Double density 8" 

Double sided/Double density 8" 

BUY DISKEHES IN BULK AMD SAVE 

Single sided/Single density 5 'A" 
Single sided/Double density 5%" 
Double sided.'Double density 5Va" 
Single sided/Double density 8" 
Double sided/Double density 8" 

BASFTM 51/4" Single Sided/Double Density 
Lifetime Limited Warranty. Reg. $44.95 

5'/4" Double Sided/Double Density — 



Now Only — $ 
Now Only — $ 
Now Only — $139.00 
Now Only — $279.00 
Now Only — $159.00 



limited warranty. 

$18.70 bx of 10 
$20.70 bx of 10 
$27.80 bx of 10 

$29.70 bx of 10 
$38.70 bx of 10 

$$$$ by case only — 

$179.00 case of 100 
$190.00 case of 100 
$225.00 case of 100 

$280.00 case of 100 
$340.00 case of 100 

Now $24.90 bx of 10 
Now $34.95 bx of 10 



PERFECT DATATM heAO CUANINO KIT Your Price — $19.95 

FILE MINDERTM 

Smoked acrylic, flip-top box, holds 75 diskettes Only $24.95 

COLOR CODERTU DISKETTE ORGANIZER 

Five different colored library cases, each holds 10 diskettes Only $24.95 

■ Reij. Trademarks • Limited Time Ofler/Limited Quantities • Prices subject to change without 
notice • Prices do not include state (axes 

1(800)527-3475 ^ 

Older by phone or by mail. We accept Visa. MasterCard, cashier's checks, certified checks, and 
money orders. With personal checks, allow additional time for bank clearance. Your bartkcard will 
not be charged until your order is shipped. On orders over $1,000, we pay freight (surface only) 
and insurance; please add S3. 00 shipping and handling under SO lbs. Over SO lbs., add S5 00 for 
orders under $1 ,000.00. Texas residents add 5% sales tax. Allow 2 to 4 weeks for delivery. 



D YES, I'm taking advantage of your Sales Prices. 

D Please send me a FREE catalog. I'm not ready to order at this time. 

Name 

Company Name 

Address 

City. 



.State. 



Ptione Number L 
Quantity 



-Zip- 



Item 



Unit Price 



Subtotal 



Check one: State Sales Tax (Texas residents only) 
O payment enclosed handling charge 

D Visa n MasterCard* Total 



*lf MasterCard, 
numt)ers above name: 



Expiration 
Date: 



Authorized signature, if charged 
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ACCESS UNUMITED 



DEPT. N-2/401 N. Central Expwy./Richardson, Texas 75080 

Tel. 1-800/527-3475 214/340-5366 V 

214/8M-0207 — Sat. and Evenings Only ci,cie no 68 • 
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number between 1 and 52 is chosen. If 
the card represented by the number has 
not been found yet, it is placed into the 
pile of shuffled cards. When all 52 cards 
are on the pile, they are dealt. 

This shuffling method is easy to 
code, but it may take long to execute. 
When only a few cards are left to be 
placed in the pile, it may take many 
tries for their random numbers to ap- 
pear. A much more elegant method 
would be to accept any 52 random 
numbers. These random numbers, each 
assigned to a card, are then sorted, 
which will shuffle their associated 
cards. Although we never noticed the 
shuffling process taking very long with 
the current method, the sorting im- 
provement might be a nice enhance- 
ment to the program. 

DEAL does as the name suggests; it 
takes a card from the deck and stores it 
in the appropriate pile. The NEWCARD 
routine takes a card from the stock pile 
and places it on the waste pile. PLAY- 
OUT determines if any upturned cards 
can be played on the top four piles. 
MOVEWASTE checks to see if the card 
on the top of the waste pile can be 
played on any of the upturned piles. 
MOVEFILE tries to move any upturned 
piles onto other upturned piles. The 
DISPLAY routine displays the top card 
of a pile on the screen. Each card is 
displayed on the screen as a two- 
character code. An "XX" means the 
card is turned face down. Otherwise, 
the first character is the number — A 
for ace, 2-9 for their respective 
numbers, T for ten, J for jack, Q for 
queen, and K for king. The second char- 
acter is the suit — D diamonds, H 
hearts, C Clubs, and S spades. There- 
fore, a TH on the screen represents the 
ten of hearts. 

To handle all the piles of cards, we 
used arrays to form stacks. There are 19 
stacks of cards — 4 piles for each suit 
on top, 6 downtumed piles, 7 upturned 
cards to be played on, a waste pile, and 
the stock pile. Rather than having a 
separate array for each, a two-dimen- 
sional array called STACK is used. The 
piles are numbered as follows: 

16 17 18 19 
10 11 12 13 14 15 
12 3 4 5 6 7 

8 9 

The pile number represents the first 
dimension of the array, so STACK[8,X] 
indicates a card in pile 8. Since each 
pile of cards is treated as an individual 
stack, the PUSH and POP routines will 



put a card on the stack or take one off, 
respectively. 

Other arrays used in conjunction 
with the stack include the array stack. 
This keeps track of where the next card 
should go on each stack, like a stack 
pointer for each stack. The arrays XP 
and YP store the address on the screen 
where each pile should be displayed. 
FIRST and SECOND contain the char- 
acters to display for each card, DECK is 
the shuffled deck of cards. Knowing 
about these arrays should help you 
understand the Solitaire program. 

You enter the Solitaire program 
from the Pascal editor and compile. It 
uses the APPLESTUFF file provided on 
the master disk. (This is to get the 
RANDOM function.) Our version was 
compiled on Pascal 1.0, but version 1.1 
should work as well. 

When you execute (or run) the pro- 
gram it will ask you how many games 
you care to play. Once you enter your 
choice, the cards are shuffled, dealt, 
and play begins. You can stop play by 
hitting any key. The game will con- 
tinue when you press a key. 



After a game is finished, a short 
pause — about four seconds — allows 
the spectators to see the results before 
starting the next game. When the 
number of games requested has been 
played, the final winnings are scored. 

Due to time constraints on our part, 
the display routine is not complicated. 
The next step in the development of 
this program would be to come up with 
a graphics display. The only procedure 
affected is DISPLAY, thanks to our 
structure approach, so feel free to 
experiment. 



Valerie and Alan Fleeter have formed a 
consulting fiim known as The Software 
Experience, which supports businesses 
owning Apples. They are the authors of 
THE ASSEMBLER and MacroSoft and have 
published about 15 articles in computer 
magazines. Also, they have designed some 
hardware boards for the Apple, which are 
marketed by other firms. Al is a senior 
systems engineer for Wisconsin Electrical 
Manufacturing in New Berlin, WI. You 
can contact the Floeters at 4333 N. 71 St., 
Milwaukee, WI 53216. 



Program Solitaire 

{ This program plays the card game of Solitaire. The cards are displayed 
on the screen as play Is occurlng. The user enters the number of games to 
play. The program outputs net winnings based on $52 payed to the 
house for each game and $5 won back for each card output. 

There are 19 stacks in use: 

- PLAY CABES - 
16 17 18 19 

^ DOm CAHDS 

4P 10 11 12 IJ 14 15 

UP CARDS ^ 

12 3 4 5 6 7 ift 

UASTE CARDS 

8 9 



Numbers 1-13 = AC - KC 
14-26 - AS - KS 
27-39 = AD - KD 
40-52 = AH - KH 



^ 



(See Page 104, #27). } 
USES APPLESTUFF; 



{ Constants for later use } 



^ 



CONST NEU=1; 

FIL«ASTE=2; 

PLAY0=3; 

MCVEW-4; 

M0VEP=5; 

PILE =9; 

WAST=8; 



VAR DECK: ARfiAY[1..52] OF INTEGER; 

STACK: AHRAY[1..19,1..52] OF INTEGER; 

POINT, XP,YP: ARRAY[1..19] OF INTEGER; 

FIRST: AHRAY[1..4] OF STRING; 

SECOND: ARRAY [1.. 13] OF STRING; 

GC0D2, GOOD, CHAUGE, QUIT, EMPTY: BOOLEAN; 

TEMP, WHICH, MOVE, UP, DN,CAHD,CARDOUT, UN, II, TR, 

INP,DIS, SUIT, MUM, X,Y,NUMB1,NUMB2,COL1,COL2; INTEGER; 

NUMGAMjGAME, UIMNING : INTEGER; 

CHCT: STRING; 

FCH,SCH: STRING; 

CH:CHAR; 



(continued) 
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Program Solitaire (continued) 






PROCEDUHE INIT; { Initialize variables } 


PROCEDURE PUSH(I:INTEGER;ArINTEGER) ; 


♦ 


BEGIN 


{ Input stack number and item } 




FOR UN:=1 TO 52 DO DECK[UN] 1=0; 


BEGIN 




FOR UF:=1 TO 19 DO POINT[UP] :=8); { Stack empty } 


IF POINT[I]>=52 
THEN BEGIN 




FIRST[1] 


= ' C ' ; 


WRITELN( 'STACK OTCRFLOW); 




FIRST [2] 


= 'S'; 


HALT 




FIRST [3] 


='H'; V 


END; 




FIRST[A] 


P0INT[I]:=P0INT[I]+1; 


{ Update stack pointer } 




STACK[I,POINT[I]]:=A; 


{ Put value in } 


SECOND [1]:=' A'; 


DISPUY (I, TRUE) 


{ And display it } 


SEC0ND[2]:='2'; 


END; 




SECOND[31:='3'i 






SECOND[A]:='A'; 


PROCEDURE POP( I: INTEGER; VAR A:INTEGER); 




SECOND[5]:='5'; 


[ Input stack number and get item back } 




SEC0ND[6]:='6'; 


BEGIN 




SEC0ND[7] :='?'; 


IF POINT[I]<=£l 




SEC0ND[8]:='B'; 


THEN BEGIN 




SEC0ND[9]:='9'; 


WRITELN( 'STACK UNDERFLOW) 




SEC0ND[10] 


= 'T'; 


HALT 




SECOND [11] 


= 'J'; 


END; 




SECOND [L2] 


= 'Q'; 


A:=STACK[I,POINT[I]]; 


{ Get from stack } 


SECOND [13] 


-'K'; 


DISPLAY(I, FALSE); 


{ And erase it } 




P0INT[I]:=P0INT[I]-1 


{ Decrement pointer } 


( The following are X and Y positions on the screen for each stack ] 


END; 




FOR UP:=1 TO 7 






DO YP[UP]:=5; 


PROCEDURE LOOK(I:INTEGER;VAR A:INTEGER;VAR 


GOOD: BOOLEAN); 




{ Input stack number and get top item back 


and true if not empty, false 


YP[8]:=22; 


if empty } 




YP[9]:=22; 


BEGIN 






IF P0INT[I]=8) 


{ Stack empty? } 


FOR UP:=10 TO 15 DO YP[UP]:=A; 
YP[16]:=2; 


THEN BEGIN 




GOOD;=FALSE; 


[ Yes, say so ] 


A:=«l 


{ Default } 


YP[17]:=2; 


END 




YP[18]:=2; 


ELSE BEGIN 




YP[19]:=2; 


GOOD:=TRUE; 


{ Stack has stuff } 




A:=STACK[I,POINT[I]] 


{ Get it } 


XP[1 ]:=10 




END 




XP[2 1:=13 




END; 




XP[ 3]:=16 








XP[ A]: =19 




PROCEDURE SHUFFLE; 




XP[ 5]:=22 




( Shuffle cards } 




XP[ 6]:=25 




BEGIN 




XP[ 7]: =28 




FOR INP:=1 TO 52 




XP[ 8]t=16 




DO BEGIN 




XP[ 9]:=22 




REPEAT 




XP[10]:=13 


^ 


CAHD:=HANDOM MOD 52 +1; 


{ Get number from 1 to 52 } 


XP[11] :=16 


UNTIL DECK [CARD] =8); 


{ See if this is used } 


XP[12]:=19 


DECK[CAfiD]:=l; 


{ Now it is used } 


XP[13]:=22 




PUSH(PILE,CAfiD) 


{ Push it on the pile } 


XP[1A];=25 




END; 




XP[15]:=28 




END; 




XP[16] :=16 








XP[17]:=19 




PROCEDUHE DEAL; 




XP[18]:=22 




{ Deal cards } 




XP[19]:=25 




BEGIN 






FOR UP:=1 TO 7 DO 




END; 


BEGIN 






POP(PILE,CAfiD); 


{ Get card } 


PROCEDURE DISPUY ( I : INTEGER ; PUT : BOOLEAN ) ; 


PUSH (UP, CARD); 


{ Put on up pile } 


{ Input stack number and false for back of card, true for front } 


FOR DN:=UP+9 TO 15 DO 


{ Rest of down piles } 


BEGIN 


BEGIN 




IF ((I>8) AND {K16)) THEN CHCT: = 'XX' { If dwn pile, dsply back } 


POP(PILE,CARD); 


{ Get card } 


ELSE BEGIN 


PUSH (DN, CARD) 


{ Put on down pile } 


DIS:=STACK[I,POINT[I]]; { Get card } 


END 




SUIT:=TRUNC((DIS-1) / 13) +1; { Get suit 1-4 } 


END; 




NUM;=((DIS-1) MOD 13+1); { Get # 1-13 } 


END; 




FCH:=FIRST[SUIT]; 






SCH:=SECOND[NUM]; 


PROCEDURE NEWCARD; 




CHCT:= CONCAT(SCH,FCH) 


{ Get new card to waste pile } 




END; 


BEGIN 




IF PUT=FALSE { If erase } 


L00K(PILE,CAFJ),GOOD); 


{ Any left? } 


THEN IF CHCT='XX' ( Then check if display back } 


IF GO0D=FALSE 


(NO } 


THEN BEGIN 


THEN EMPTY :=TRUE 


{ Say its empty } 


IF P0INT[I]=1 { If none left, then blank It } 


ELSE BEGIN 




THEN CHCT:=' ' 


EMPTY: =FALSE; 




END 


POP(PILE,CARD); 


( Get card } 


ELSE CHCT:=' '; 


P'JSH(WAST,CARD) 


{ And put on waste pile } 


X:=XP[I]; { Get x pes } 


END; 




Y:=YP[I]; { And y pos } 


MOVE:=PLAYO; 


{ Next play } 


IF I<8 THEN Y:=Y+P0INT[I]-1; { If up pile, can go doim more } 


END; 




G0T0XY(X,Y); { Do It } 






HRITELN(CHCT) { Write It out } 
END; 


4 


(Continued on page 114) 
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Deluxe 

COMSTAR FfT 

PRINTER— $279.00 

The Comstar is an excellent addition to any 
micro-computer system. (Interfaces are 
available for Apple, VIC-20, Commodore-64, 
Pet, Atari 400 and 800, and Hewlett Packard) At 
only $279. the Comstar gives you print quality 
and features found only on printers costing 
twice as much. Compare these features. 



• BI-DlflECTIONAL PRINTING with a LOGIC 
SEEKING CARRIAGE CONTROL for higher 
through-put in actual text printing. BO 
characters per second. 

• PRINTING VERSATILITY: standard 96 ASCII 
character set plus block graphics and Interna- 
tional scripts. An EPROM character generator 
includes up to 224 characters. 

• INTERFACE FLEXIBILITY: Centronics Is 
standard. Options Include EIA RS232C, 20mA 
Current Loop. (Add $20.00 for RS232) 



• LONG LIFE PRINT HEAD: 

character life expectancy. 



100 million 



• THREE SELECTABLE CHARACTER 
PITCHES: • 10, 12 or 16.5 characters per inch. 
132 columns maximum. Double-width font also 
is standard for each character pitch. 

• THREE SELECTABLE LINE SPACINGS: 6, 8 

or 12 lines per inch. 

• PROGRAMMABLE LINE FEED: program- 
mable length from 1/144 to 255/144 inches. 



• VERTICAL FORMAT CONTROL: program- 
mable form length up to 127 lines, useful for 
short or over-sized preprinted forms. 

• FRICTION AND TRACTOR FEED: will accept 
single sheet pap«r. 

• 224 TOTAL CHARACTERS 

• USES STANDARD SIZE PAPER 

If you want more try — 

Premium Quality 
COMSTAR FrrSUPER-10" 

PRINTER— $329.00 
More Features Than MX-80 

For $250 Less 

For $329.00 you get ail of the features of the 
Comstar plus 10" carriage, 100 cps, 9 x 9 dot 
matrix with double strike capability for 18 x 18 
dotmatrlx. High resolution bit Image (120 x 144 
dot matrix), underlining, backspacing, 2.3K 
buffer, left and right margin settings, true 
lower descenders, with super and subscripts, 
and prints standard, Italic, Block Graphics, 
special characters, plus 2K of user definable 
characters. For the ultimate in price per- 
formance the Comstar F/T Super 10" leads the 
pack! 



80 COLUMN PRINTER $199 

Super silent operation, 60 CPS, prints Hi- 
resolution graphics and block graphics, ex- 
panded character set, exceptionally clear 
characters, fantastic print quality, uses inex- 
pensive thermal roll paper! 



Double 

Immediate Replacement 

Warranty 

We have doubled the normal 90 day warranty 
to 180 days. Therefore if your printer fails 
within "180 days" from the date of purchase 
you simply send your printer to us via United 
Parcel Service,' prepaid. We will IMMEDIATELY 
send you a replacement printer at no charge 
via United Parcel Service, prepaid. This warran- 
ty, once again, proves that WE LOVE OUR 
CUSTOMERS! 

15 DAY FREE TRIAL 

OTHER OPTIONS 

Extra Ribbons $ 5.95 

Roll Paper Holder 32.95 

Roll Paper 4.95 

5000 Labels 19.95 

1100 Sheets Fan Fold Paper 13.95 

Add $20.00 shipping, handling and insurance. 
Illinois residents please add 6% tax. Add 
$40.00 for CANADA, PUERTO RICO, HAWAII, 
ALASKA orders. WE DO NOT EXPORT TO 
OTHER COUNTRIES. Enclose cashiers check, 
money order or personal check. Allow 14 days 
for delivery, 2 to 7 days for phone orders, 1 
day express mail available!! Canada orders 
must be in U.S. dollars. 



COMSTAR FfT 

«=»EeC:DE:F=^GM I J H;:L_MMDF-IUR:S~rLJ VWX Y 

ABCDEFGHIJKLMNOPQRSTUVWXYZabcde-fshi J klmnopqrstLivw;;y 2 1234567890 



ENTERPRIZES ("eloveourcustomers) 

BOX 550, BARRINGTON, ILLINOIS 60010 
Phone 312/382-5244 to oidar 



ta c: d ^ -F •=• h X _j I-:: 



SUPER-10" ABCDERCSH ZaKL.MNai 

ABCDEFGHIJKLMNOPQRSTUVUXYZ 12: 
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Program Solitaire (continued) 

PROCEDURE TURN{ I: INTEGER); 
{ Input stack number to turn up } 
BEGIN 

IF ((I>1) AND (I<3)) 
THEN BEGIN 
II:=I+8; 

LOOK (II, TEMP, G00D2); 
IF G00D2=TRIJE 
THEN BEGIN 

POP{n,TEMP); 
PUSH (I, TEMP) 
END 
END 
END: 



PROCEDURE PLAYOUT; 
{ Play to output piles if any } 
BEGIN 

MOVE:=MOVEW; 
FOR UP:=1 TO 8 
DO BEGIN 

LOOK (UP, CARD, GOOD); 
IF GOOD=TRUE 
THEN BEGIN 

WHICH: =TRUNC((CARD-1)/13) 
L00K(WHICH,CARDOUT,GO0D) ; 
IF GOOD=FALSE 

THEN CARDOUT:=(WHICH-l6)»13; 
IF CARD=CAKD0UT+1 
THEN BEGIN 



* 



{ Only turn up cards for 2-7 piles } 

{ Get down pile associated with it } 
{ One there? } 
{ res } 

{ Get it } 

{ Display it } 



{ Do this next if no move } 



{ Card on up pile? 
{ If yes } 



+16; 



{ Get which suit } 
{ Out already } 



{ Take card off } 
{ Play out } 

{ If up pile empty } 



POP(UP,CAHD); 

PUSH(WHICH,CARD); 

WINNING :=WINNING+5; 

LOOK (UP, CARD, GOOD); 

IF GO0D=FALSE THEN TURN(HP); { Turn up a card } 

MOVE:=FILWASTE; { Maybe replace waste pile } 

IF HP=WAST THEN 

BEGIN 

L0OK(UP,CAHD,G0OD); 

{ Display card underneath } 

IF GOOD =TRUE THEN DISPLAY(WAST,TRUE) ; 

END; 



END; 



END; 



PROCEDURE FILLIT; 
{ Keep waste pile not empty } 
BEGIN 

MOVE:=PLAYO; 
LOOK ( WAST , CARD , GOOD ) ; 
IF GOOD=FALSE THEN MOVE:=NEW 
END; 



{ Any on waste pile? } 

{ If no, then get a new card } 



PROCEDURE CHECK(VAR CHANGE : BOOLEAN ) ; 

{ Card and CardQut are the two cards, change comes back, true if play 
available, false if not } 
BEGIN 

CHANGE: = FALSE; 
NUMB1:=((CAED-1) MOD 13+1); 
NUMB2:=((CARD0UT-1) MOD 13+1); 
IF (CARDOUT=el) AND {NUMB1=13) 

THEN CHANGE :=TRUE; 
IF NUMB1+1=NUMB2 
THEN BEGIN 

COLl : =TRUNC (CARD/27 ) ; 
C0L2 : =TRUNC (CARDOUT/27) 
IF C0L1OC0L2 

THEN CHANGE :=TRUE 
END 
END; 



{ Get # } 

{ If empty and a king } 

{ If numeric order correct } 

{ Get color } 
{ Of each } 

{ If color different } 



PROCEDURE MOVEWASTE; 

{ See if waste card can be played on up cards } 
BEGIN 

MOVE:=MOVEP; { This next if no move } 

LOOK (WAST, CARD, GOOD); { Look at waste pile } 

IF GOOD=TRUE { If not empty } 

THEN BEGIN 

FOR UP:=1 TO 7 
DO BEGIN 

LOOK(0P,CARDOUT,G00D) ; 
CHECK (CHANGE); 
IF CHANGE=TRUE 
THEN BEGIN 

POP(WAST,CARD); 
PUSH (UP, CARD); 
MOVE:=FILWAETE; 



[ See if card is up } 
{is there a play? } 
{ If yes } 



{ Get card } 
{ And put on up pile } 
{ Maybe get new 
waste card } 
{ And get out } 



HP: =7; 
LOOK(WA£T, CARD, GOOD); 
IF GOOD =TRUE THEN 
DISPLAY(8,TRUE); { Display It again } 



END 



END; 



PROCEDURE TRANF(FROMC : INTEGER;TOC : INTEGER) ; 
{ Transfer up cards FROMC to up cards TOC } 
VAR TEMP2: INTEGER; 
BEGIN 

TR:=POINT[FROMC]; { Depth of stack } 
FOR TEMP2:=1 TO TR 
DO BEGIN 

P0INT[FR0MC]:=TEMP2; 
TEMP:=STACK[FROMC,POINT[FROMC]]; 



^ 



{ Get under } 
(Continued on page 116) 



IS THERE LIFE AFTER BASIC ? 
YES ! WITH... 



CX)LORFORTH™ 

MOVE UP FROM BASIC! Forth is a new. high level language available now for the TRS-80 ' Color Com- 
puter COLORFORTH. a version of fig FORTH, has an execution time as much as lO to 20 times faster than 
Basic, and can be programmed faster than Basic. COLORFORTH fs highly modular which make testing 
and debugging much simpler COLORFORTH has been specially customized for the color computer and 
requires only ^tK It does not require Extended Basic When you purchase COLORFORTH, you receive 
both cassette and RS/DISK versions, the standard fig EDITOR and an extensive instruction manual Both 
versicns and 75 page manual . . . . S4995 



Add SPOO shipping 

DEALER AND AUTHOR INQUIRIES INVTTED 

ARMADILLO INTl SOFTWARE 

P. O. Box 7661 
Austin, Texas 78712 



Texas residents add 5 percent 

( uric Su. 10 





Phone (512) 459-7326 
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^icA^(A<Uen€lcc9*iutuCKCc^UioH^ 



s^!: 



oo 



caoa' 



,6\^^ 



SA^ 



00' 









RTC 



10610 BAYVIEW (Bayview Plaza) 
RICHMOND HILL, ONTARIO, CANADA L4C 3N8 
(416)884-4165 

C64-LINK 

The Smart 64 




RTC 



Call or write f 

payments 

by VISA, 

MASTERCARD 

or BANK 

TRANSFER. 

Mail orders 

also by 

certified 

check, etc. 



Cartridge 
Expansion Slot 



Serial 

Audio I/O 

Switch RF Video Port 




@ 



C64-LINK 



IEEE Disks 

(2031) (4040) 

(8050) (8250) 

(9090) 




Many more 64s 




IEEE Printers 

(4022) (8023) 

(8300) 

etc. 



1541 Drive 

And 

1525 Printer 

or 1515 Printer 



or VL3 Cable 
to Parallel 
Printer 



^» 



I I 






.fflffffl 



^m 



g i mTTW TT 



p 



Spooling 

to 
Printer 



1 




(future) 

Cartridge 

Mother Board 






CP/M 






POWER® 
And 
PAL® 






Other 
Cartridges 



lEEEtoParallel 

Interface 

Parallel 

Devices 



IEEE to Serial 
Interface 

True Serial 
Devices 



or VL4 Cable 

to Standard 

M odem 



Give These Expanded -^ 

Capabilities To Your 64 ^ 



MVC 



-^The ability to transfer data from any type of device to another (IEEE, Serial, 
Parallel) 

if BASIC 4.0 which allows you to run more PET BASIC programs and gives you 
extended disl( and I/O comhnands. 

-^The ability to have several 64s on line together - sharing common IEEE 
devices such as disl(s or printers with Spooling Capability. 

if Built-in machine language monitor 

-^ A built-in terminal or modem program which allows the system to communi- 
cate through a modem to many bulletin board systems and other computer 
mainframes. 



■A- Compatibility with CP/M. 



Contact your local Commodore dealer or RTC. 



Copyrights and TrademarVs 

C64 is a copyright of Commodore Business Machines, 
inc. C64-LINK is a copyright of Richvale Tele- 
communications. CP/M is a registered trademark of 
. Dig itai Research. POWER is a trademark of Pro- 
fessional 'Software. PAL is a copyright of Brad 
Templeton. 
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AVANT GARDE 



Presents 



FORTRAN-like Applesoft 
enhancement for your Apple 



Amperfinesse brings che power of such 
high level languages as Fortran and PL i to 
the Apple II Plus at an inexpensive price. 
Plus a complete set of editing commands' 
Call subroutines with arguments and by 



GOTOs by name! 

Formatted numeric output including 'S' 

and ■" options! 

Input virtually any character stringi 

Search part or all of an Applesoft program 

for a string! 

Substitute one string for another 

anywhere in a program! 

Renumber part or all of a program! 

Inittalize a disk without DOS and add 

10000 bytes additional storage! 

Add simple music and sounds to a program 

with easy to use music commands! 

Initialize the hi-res screen to any 

HCOLOR and set ROT. SCALE, and 

HCOLOR, all with a single command! 
_ Auto-line numbering mode ! 

Mbve an Ajjpfesof t program aimost 
i aRVvMbere in mettsCitTSiseven ;wht(e the pro- 






AVANT GARDE 

P.O. Box 30160/EKgene. OR 97(03 
(503) 345-3043 



Program Solitaire (continued) 



DISPLAY ( FROMC , FALSE ) ; 
PUSH (TOC, TEMP); 
DISPLAY<TOC,TRUE) 
END; 
POINT [FROMC] :=«) 
END; 

PROCEDURE MOVEPILE; 

{ See if pile should be moved to another pile } 
BEGIN 

MOVE:=NEW; 
FOR UN:=1 TO 7 
DO BEGIN 

LOOK (UN, CARD, GOOD); 
IF GOOD=TRUE 
THEN BEGIN 

FOR UP:=1 TO 7 
DO BEGIN 

LOOK ( UP , CARDOUT , GOOD ) 



[ Erase it } 

{ Put on other } 

{ Display it } 

{ Empty stack } 



{ Is there a card up? } 



{ Get top card ) 
{ Get under card 
{ Playable? } 
{ If yes ) 



c$ 



CAED:=STACK[UN,1]; 
CHECK(CHANGE); 
IF CHANGE=TRUE 
THEN BEGIN 

LOOK (UN+8, TEMP, GOOD) ; 

IF( (NUHBIO 13)0R( (GOOD=TRUE) AND(UN <> 1) ) ) 

THEN BEGIN 

TR1NF(UN,UP); { Move pile } 



TURN(UN); 
UN:=7; 
UP:=7; 
MOVE:=PLAYO 
END 



{ Turn up new 
{ Quit ) 



END 



END; 



{ If key hit } 



{ Pause until key hit 



IF ((MOVE=NEW)AND(EHPTY=TRUE))THEN QUIT:=TRUE { Stop 
END; 

PROCEDURE CHECKKEY; 
{ Pause for key hit ) 
BEGIN 

IF KEYPRESS=TRUE THEN 
BEGIN 

READ(CH); 
REPEAT CH:=CH; 
UNTIL KEYPRESS; 
READ(CH); 
END; 
END; ^ 

BEGIN 

RANDOMIZE; 
GAME:=1; 
WINNING :=«); 

WRITEU1( 'ENTER NUMBER OF GAMES TO PLAY'); 
READLN(NUMGAM); 
WHILE GAME<=NUMGAM DO 
BEGIN 

GOTOXY(«),23);FOR II:=1 TO 24 DO WRITELN; { Clear screen 

WRITELN('GAME NUMBER '.GAME); 

WINNING :=WINNING-52; 

INIT; 

SHUFFLE; 

DEAL; 

QUIT:=FALSE; 

MOVE;=NEW; 

REPEAT 

BEGIN 

CHECKKEY; 
CASE MOVE OF 
NEW: NEWCARD; 
FILWASTE: FILLIT; 

4PLAY0: PLAYOUT; 
MOVEW: MOVEWASTE; 
MOVER: MOVEPILE 
END; 
END; 

UNTIL QUIT^TRUE; 

FOR TEMP:=1 TO 10000 DO TEMP:=TEMP; { Pause a bit 
GAME:= GAME+1; 
END; 



{ Pause if key hit 



G0T0XY(«),23); 
WRITELN('NET WINNING 



.WINNING) 



END. 
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Why Better? 

Because There Are No Secrets! 

Most of ttese programs are unprotected or 

<^ompletely I't^m^l^' and may be used in all your 

cr^^tions, \%^Mo royalties required. They turn 

novic^^Soto^ofessional^ and prqfe§sionals into 
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Lagiciansl 
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AVANT-GARDE CREATIONS. INC. 

P.O. Box 30160 Eugene, OR 97403 
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HELLO CENTRAL! 

The single most important telecommunications program 
available today . . . 

"The most satisfying feature of HELLO CENTRAL! is its 
user-friendliness. . . offers some features that have been 
longed for in a terminal program. . .HELLO CENTRAL! is a 
great terminal program. . .consider this one." 

—SOFTALK (December, 1M2) 

"The manual is relatively easy to read. . .Most directions, 
choices, and commands are either easy to remember or are 
displayed on the screen. . .in my opinion, the best feature. . .is 
the text editor. It allows you to write, insert, delete, and copy 
blocks of text in a very efficient manner. . .can receive and 
store text files written in Integer. . .Applesoft® BASIC and in 
Binary Code. . ." 

—DESKTOP COMPUTING (December, 1982) 

Here are a few of the features standard with HELLO CENTRAL! 

• 18,000 character buffer to store an unlimited number of lines, regardless 
of length 

• No need for 80-column hardware, because internal wordwrap eliminates 
split words 

• Auto dial/answer and tal^e-a-message 

• Accepts any ASCII file 

• Upper and lower case input and output 

• Multiple user-defined directories 

• Powerful text editor lets you modify incoming and outgoing information 

• Not copy-protected, allowing for easy back-up 

• Completely menu-driven 

• Program updates (when available) via modem 



only $99.00 



As/f for No. 26081 

Only HELLO CENTRAL! has all of these features for $99.00! Call 800-428-3696 
or 317-298-5566 and ask for Operator 402. 

Available for Apple II® series computers, including the new lle'^. 

Apple II. II-PLUS, lie. and Applesoft are registered trademarks, of Apple Computer, Inc. 



m 



SAMS BOOKS & SOFTWARE 

HOWARD W. SAMS & CO., INC. 
4300 West 62nd Street P.O. Box 7092 
Indianapolis, IN 46206 



Circle No. 73 



more 



68000 

addressiig 

modes 



by Joe Hootman 



Our 
last 
installment 
in the 
68000 
series 



iif 



MICRO 



No. 62 - July 1983 



Address Register Indirect with Index and 
Displacement 

The address register indirect with index and displace- 
ment is similar to the address register indirect with 
displacement except that a data or address register can add 
to the displacement. The displacement is a sign-extended 
integer specified in the post word of the opcode. The effec- 
tive address is calculated by adding the specified address 
register contents to the designated data or address register 
contents and adding the sign-extended 8-bit displacement 
integer to the results. 

The extension word for the address register indirect 
with index and displacement is given below: 



15 14 13 12 11 10 9 



7 6 5 4 3 2 10 



D/A 


Register 


W/L 











Displacement 



D/A — Index register displacement 

— data register 

1 — address register 
Register — Number of index register 

— sign-extended low order word in index 
W/L <? register 

Uses the entire word in the index register 



iter - 



The next example illustrates this addressing mode. 
Suppose the data register DO is to be loaded with the data 
in the memory location defined by AO, Dl and an offset of 
-4. The data register Dl is considered to be the "Index" 
register. The coding of the desired instruction follows: 

Memory 



MOVE.W-41A0,Dl.W),D0f3030)Opword 
(I OFC( Extension 
word 
After execution 
DO 00000405 
Dl 00000008 
AO 00001500 



Before execution 
DO 00000000 
00000008 
00001500 



Dl 
AO 



Address Data 


15FB 


FB 


15FC 


FC 


15FD 


FD 


15FE 


FE 


I5FF 


FF 


1500 


OF 


1501 


01 


1502 


02 


1503 


03 


1504 


04 


1505 


05 


1506 


06 



The address register indirect with index and displace- 
ment is very powerful. This particular addressing mode is 
useful when a series of tables are stored in memory. The 
address register can be loaded with the beginning address 
of the series of tables. The index register can then select 
the particular table and the displacement will allow the 
selection of the particular data in the table. 



Absolute Short Address 

When using the absolute short address the effective 
address of the data is included in the instruction. If you 
want to move data to DO from memory locations $1500 
and $1501 using the absolute short addressing mode, then 
the mnemonic for the operation is 

MOVE.W $1500,00 (3038 Opword 

11500 Extension word 

This instruction fetches the data from memory locations 
$1500 and $1501 and places the data in bits 15-0 of DO. 



Absolute Long Address 

The absolute long addressing mode is similar to the short 
addressing mode except it allows access to all the memory 
space. If DO is to be loaded using the long addressing mode, 

jl^CiDl ''''■'■"''"'■'' A.ldress 

Note that the absolute long addressing mode uses two ex- 
tension words while the absolute short addressing mode 
uses only one extension word. 



Program Counter With Displacement /Indexed 
Addressing Mode 

The program counter addressing mode is used when 
programs are to be independent of the location of the pro- 
gram in memory. This allows the programmer to code the 
program into a ROM and to be able to use the ROM in any 
68000 microprocessor and at any memory location in the 
system. 

There are two addressing methods used in the program 
counter addressing mode: the program counter with 
displacement and program counter with index. Both of the 
addressing modes are based on the same principle, which 
is that the program counter points to the location of the 
program and offsets are calculated from the program 
counter position. 



Program Counter with Displacement 

The program counter with displacement forms the ef- 
fective address by adding a fixed offset to the present value 
of the PC. The fixed offset is a 16-bit sign-extended in- 
teger. The value of the PC is the address of the extension 
word. The data at the effective address is retrieved from 
the effective address. The displacement is contained in an 
extension word. To^oad DO from an offset of -I- 8 from the 
PC the following opcode could be used. 

(Continued) 
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Table 1 : Addressing Modes 



Name of Addressing Mode 



Effective 

Address 

Modes 



Mode Register 



1 . Data Register Direct On 

2. Address Register Direct An 

3. Address Register Indirect An® 

4. Address Register Indirect with Postincrement An@ + 

5. Address Register Indirect Predecrement An@ - 

6. Address Register Indirect with Displacement An@(dJ 

7. Address Register Indirect with Index An@(d,ix) 

8. Absolute Short Address XXX.W 

9. Absolute Long Address XXX. L 

10. Program Counter with Displacement PC@(d) 

11. Program Counter with Index and Offset PC@(d,ix] 

12. Immediate Addressing #xxx 

13. Quick Immediate #xx 

14. Implied Addressing — 



000 
001 
010 
111 
100 
101 
110 
111 
III 
111 
III 
111 



register no. 
register no. 
register no. 
register no. 
register no. 
register no. 
register no. 
000 
001 
010 
Oil 
100 



Syntax 



Dn 
An 

(An) 
(An) + 
-[An) 
d(An) 
d|An,Ri) 

XXX 
XXXXXX 

PC relative +dl6 
PCrel. +Ri +d3 

#XXX 



Memory 

Address Data 

1000 30 



MOVE.W 8(PC),D0 [303AVOpword 
« 0008 J Extension 



Before execution After execution 



PC OOOOIOOO 
DO 00000000 



PC 00001004 
DO OOOOOAOB 



1001 
1002 
1003 
1004 
1005 
1006 
1007 
1008 
1009 
lOOA 
lOOB 
lOOC 
lOOD 
lOOE 
lOOE 



3A 
00 
08 
04 
05 
06 
07 
08 
09 
OA 
OB 
OC 
OD 
OE 
OF 



Program Counter With Index and Displacement 

The program counter with index and displacement 
addressing mode allows the use of either an address 
register or data register as an index register, and an eight 
bit displacement. The effective address is composed of the 
sum of the index register, the PC, and the displacement. 

The extension word for this addressing mode is given 
below. 



15 14 13 12 11 10 9 



7 6 5 4 3 2 10 



D/A 



Register 



W/L 



Displacement Integer 



D/A — Bit indicates the index register: either a Data 
register or Address register. 

— Data register 

1 — Address register 

Register — The register number of the index 
register. 

W/L — This bit indicates the operand size of the index 
register. 

— Sign extended lower order word integer in 
Index register. 

1 — The long word value in the Index register. 

If DO is to be loaded with the data located at a location 
defined by the PC, the contents of the index register Al 
and an offset of 4, then the following instruction would 
be used. (Continued on page 122) 

Memory 



MOVE.W 4(PC,A1.W),D0 f303B] Opword 



Before execution After execution 



DO 


00000000 


DO 


00000809 


Al 


00000002 


Al 


00000002 


PC 


OOOOIOOO 


PC 


00001004 



Address Data 


1000 


30 


1001 


3B 


1002 


90 


1003 


04 


1004 


04 


1005 


05 


1006 


06 


1007 


07 


1008 


08 


1009 


09 


lOOA 


OA 


lOOB 


OB 


lOOC 


OC 


lOOD 


OD 
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FOCUS 



ON THE 6809 MICRO 
WORTH SWITCHING FOR 



FOCUS ... ON ITS 

SUPERIOR HARDWARE 



• 6809E Microprocessor provides 8-bit economy with 16-bit 
capabilities, position independent code and many advanced 
features 

• Commerciai quaiity Keyboard with fuil UPPER/iower case 
ASCII, numeric keypad and cursor control keys 

• Two double-sided double-density mini diskettes with 
640K bytes of IBM-compatible storage 

• 56K Bytes Us^r RAM 

• Full Video with programmable screen formats, bit mapped 
graphics, user definable character sets, reverse video and 
hardware scrolling, plus a light pen interface 

• Full Communications support for RS-232 at 50 to 19.2K 
baud with programmable data formats 

• Built-in I/O Drivers include 6 parallel I/O ports, 3 serial I/O 
ports, 6 timers/counters, 20 mA current loop, and a 
programmable cassette interface 



^^ TUIC IC ^ 



FOCUS ••• ON ITS 

EXTRAORDINARY SOFTWARE 






Includes the popular FLEXtm Operating System — a 
standard for the 6809 (supported by many vendors. 
Extended Floating Point Disk BASIC 

interpreted and Compiled 
Text Editor and Macro Assembler 
Full feature FlexiMon debugging monitor 
Built-in Word Processor 



FOCUS ••• ON ITS 

VERSATILE EXPANDABILITY 



• IEEE-488 Bus Controller option for instrumentation 

• Supports multiple 8" diskette drives 

• PASCAL, FORTH and other high level programming 
languages are available 

• Complete Application Packages are available from many 
software sources 

• Add-on Hardware includes: Datemme, Opto-lsolators, 
Stepper-Motor Controller, A/D and D/A, RAM and EPROM 
Memory, and others from several manufacturers 



FOCUS ••• ON YOUR 

APPLICATION REQUIREMENTS 



FOCUS provides a completely integrated system of 
hardware and software, so that you can concentrate on 
your application requirements 
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THIS IS 

FOCUS 




Very CompLete 



34 Chelmsford Street 
Chelmsford, MA 01824 

Phone: 617/256-3649 
Telex: 95531 8 INTL DIV 
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A Piogramming Example 

When a fast Fourier transformer (FFT) is calculated (see 
references) the results are generally scrambled. To 
establish the proper order of the data you must bit reverse 
the address to the transformed data output of the FFT. All 
of the mathematical operations that are required to imple- 
ment the FFT are available in the higher level languages. 
However, with all of the addressing modes of the 68000 
and the ease with which address registers can be 
manipulated, it would seem that the bit reversal could be 
done easily in machine language. 

The basic procedure used to form the bit-reversed word 
is to shift the original word one bit position to the right 
and check the carry bit. If the carry bit is set, one is added 
to DO; if the carry bit is zero, then DO is shifted left. This 
process continues until D2 is decremented to zero. The 
results are left in the DO register. The program that ac- 
complishes this is given below. 

CLR DO 4240 Clear DO for result 

ADDQ#$1,D2 5242 Add one to bit count 



You may contact Professor Hootman at the 
[Jnivtrsity of North Dakota, Dept of 
EleLtrica) EnKinecimg, University Station,' 
C:rand Forks, ND 58202 



L02 SUBQ #1,D2 


5342 


Decrement loop counter 


BEQLO 


67000012 Get out of loop 


LSR #$1,D1 


E249 


Shift bits right 


BCC LOl 


64000008 If Carry bit LOl 






If Carry bit 1 go on 


LSL #$1,D0 


E348 


Shift previous bit one 
place to the left 


ADDQ #$1,D0 


5240 


Add 1 to DO 


BRAL02 


60EE 


Return to begin loop 


LOl LSL #$1,D0 


E348 


Shift into least 
significant bit position 


BRA L02 


60EA 


Return to beginning of 
program 


LO NOP 


4E71 




LE BRALE 


60FE 


A method of ending the 
program. This statement 
could have been a RTR 
if the program were 
called as a subroutine. 



When this program is executed it expects to find the 
number of bits to be reversed in D2 and the value of the 
address to be converted in Dl. 



Accounts Payable 

& 

Receivable 

Program 

Business or Home owner, keep 
track of your accounts payable and 
receivables 

• 300 entries per disk 

• 75 entries per cassette 

• Printer option 

• Automatic Sort 

Requires 8K or 16K Expander 

Disk - $35.95 
Cassette - $29.95 



TO ORDER; 
P.O. BOX 768 
WICHITA. KS 67201 
(316)263-1095 



Handling charges S3 00 

COD (Add $2.00) 

Personal checks allow 3 week delivery 

VlC-20® is a registered trademark of Commodore 

Prices subject to change 
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Conclusions 

The instruction set of the 68000 is extremely powerful and flexible. 
There are many programming software aids, such as the CHK instruction 
and the ability to use the data and address registers as index registers, that 
have been designed into the 68000. The 68000 will not try to execute any in- 
struction that does not have a bit pattern consistent with a recognized opcode, 
and the processor will indicate such a problem by going into the exception pro- 
cessing state. 

The hardware and software implemented in the 68000 will allow a 
multiple-user mode of operation as well as support high-level languages. 
Systems that use the 68000 will undoubtedly be used in multiple-user word 
processing environments and in small business environments such as 
grocery stores, chain stores, and department stores. Another area where the 
68000 will be used is the distributive processing environment. The 68000 
would be ideal as a central processor for an oil refinery where control of the 
refinery would be distributed throughout the refinery area. 

The 68000 most likely will be upgraded from a 16-bit to a 32-bit 
microprocessor. Expandability of the instruction set also exists because the 
processor is microprogrammed, providing plenty of room for expansion. 
This potential of the 68000 to be expanded and upgraded means it will exist 
in some form for quite a while. The 68000 is a powerful machine and is well 
worth the effort to learn. 
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1. "16-Bit Microprocessor User's Manual," Third Edition. Prentice- 
Hall, Inc.; Englewood Cliffs, NJ 07632. 
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D&N MICRO PRODUCTS, INC. 



TERMS $3.00 shipping. Foreign orders add 15%, Indiana residents add 5% sales tax. 



3702 N. Wells St. 

Fort Wayne, Ind. 46808 

(219)484-6414 



COMPUTER 



MICRO-80 COMPUTER 

Z-80A CPU with 4Mhz clock and 
CP/M 2.2 operating system. 64K 
low power static memory. Cen- 
tronics parallel printer port. 3 serial 
ports. 4" cooling fan. Two8" single 
or double sided floppy disk drives. 
IBM single density 3740 format for 
243K or storage, double density 
format for604K of storage. Double 
sided drives allow 1.2 meg on 
each drive. Satin finish extruded 
aluminum with vinyl woodgrain 
decorative finish. 8 slot backplane, 
48 pin buss compatible with OSI 
boards. 
MODEL 80-1 200 $2995 

2 8" Single sided drives 
MODEL 80-2400 $3495 

2 8" Double sided drives 

MICRO-65 COMPUTER 

6502 CPU with 2Mhz clock and 
DOS-65 operating system. 48K of 
low power static memory. 2 serial 
ports and 1 Centronics parallel 
port. 2 8" single or double sided 
drives. Satin finish extruded 
aluminum with vinyl woodgrain 
finish. 8slot backplane, 48 pin buss 
compatible with OSI. Will run OSI 
65D and 65U software. Includes 
Basic E/65 a compiled BASIC for 
6502 CPU. 
MODEL 65-1 $2995 

2 8" Single sided drives 
MODEL 65-2 $3495 

2 8" Double sided drives 

BP-580 8 Slot Backplane $ 47 

OSI 48 pin Buss compatible 
MEM-CM9 MEMORY/ 
FLOPPY CONTROLLER 

24K memory/floppy controller card 
uses 2114 memory chips, 1 8K and 
1 16K partition. Supports OSI type 
disk interface 

24MEM-CM9 $325 

16MEM-CM9 $260 

8MEM-CM9 $180 

BAREMEM-CM9 $ 50 

Controller on assembled unit 
add $ 90 

BIO-1600 Bare 10 card $ 50 

Supports 8K of memory, 2 16 bit 
parallel ports, 5 serial ports, 
witti manual and Molex 
connectors. 
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PRINTERS 



Okldata 
ML82A,120cps,10" .$409 

ML83A,120cps,15" .$895 

ML84Parallel,200 caps, 15". $1150 

C. loth 
8510AP Prowriter, parallel . . . $419 

120 cps, correspondence quality 

8510APD Prowriter, serial $585 

F10-40PUStarwriter, parallel $1319 

Letter quality daisy wheel 
F10-40RUStarwriter, serial.. $1319 
F10-55PU Print master $1610 

parallel. Letter quality daisy 

wheel 
F10-55RU Printmaster, serial $1610 

DISK DRIVES AND CABLES 
8"ShugartSA801 $385 

single sided 
8"ShugartSA851 $585 

double sided 
FLC-66 ft cable from D&N $69 

or OSI disk controller to 8" drive 
5y4"MPIB51 disk drive with. .$450 

cable, power supply and 

cabinet. Specify computer type. 
FLC-5V4 cable for connection .$75 

to 5V* drive and D&N or OSI 

controller, with data separator 

and disk switch. Specify 

computer type 



HARDWARE 



OSI COMPATIBLE 

I0-CA1 OX Serial Printer Port . . $1 25 

Specify Device #3 or #8 
I0-CA9 Parallel Printer Port ..$150 
CMOS-MEM 

64K CMOS static memory board, 
uses 6116 chips, 3 16K, 1 8Kand2 
4K blocks, Partitionable for multi- 
user, OSI type disk controller, 2 10 
mapped serial ports for use with 
D&N-80 CPU. Ideal way to upgrade 
from cassette to disk. 

64KCMOS-MEM $500 

48KCMOS-MEM $405 

24KCMOS-MEM $260 

16KCM0S-MEM $210 

BARECMOS-MEM $50 

Controller add.$ 90 

2 10 mapped serial ports add. $125 

on assembled memory board 
Z80-IO 2 10 mapped serial $160 

ports for use with D&N-80 CPU 

card 

FL470 Disk Controller $155 

5V4 or 8" drive 

MICRO 



STANDARD 
CP/M FOR OSI 



D&N-80 CPU CARD 

The D&N-80 CPU allows the owner 
of an OSI static memory computer 
to convert to Industrial Standard 
IBM 3740 single density disk for- 
mat and CP/M operating system. 
Double density disk operation is 
also supported for608K of storage 
on an 8" diskette. When used with 
a 5 V4" disk system 200K of storage 
is provided. Optional parallel 
printer and real time clock. Also 
available for polled keyboard and 
video systems. Compatible with 
C2, C3, C4 and 200 series OSI com- 
puters. 

INCLUDES CP/M 2.2 
D&N-80-1 Serial 8" disk $595 
D&N-80-2 Video 5V4" disk $595 
D&N-80-3 Video 8" disk $595 
Option 001 $ 60 

Parallel printer and 
real time clock. 

HARD DISK DRIVER $140 

Allows D&N-80 CPU board to con- 
trol OSI 40 orSO meg hard disk unit. 
Will not destroy OSI files. Will also 
allow for a true 56K CP/M system. 
Specify 40 or 80 meg drive. 
BUSS TRANSFER $135 

Allows for D&N-80 and OSI CPU to 
be in the computer at the same 
time. Toggle switch provides for 
alternate CPU operation. 
DISKTRANSFER $100 

Utility program to transfer OSI 
CP/M format disk to IBM 3740 
single density format. Will also 
transfer IBM to OSI format. 
SYSTEM HARDWARE 
REQUIREMENTS 
D&N-80 CPU, D&N FL470 or OSI 
470 controller, 48K memory at 
0000-BFFF, 4K memory at DOOO- 
DFFF, two disk drive cables. 
FORMAT TRANSFER $15 

You supply software on 8" diskette 
D&N will transfer OSI CP/M format 
to IBM 3740 CP/M format. Can also 
transfer IBM 3740 CP/M format to 
OSI CP/M format. Original diskette 
returned. 



Circle No. 76 



123 




Electronics 

PROWRITER PRINTER 

«395 



HARDWARE 



FRANKLIN 



ACE 




The Professional Personal Computer 
INTRODUCTORY PACKAGE 

• Franklin Ace 
1000 

• I'Disk Drive 

• Green Monitor 

$1595 

QUICK BROWN FOX 

$5525 

CALL FOR THIS MONTH'S SPECIAL 

1-800-835-2246 EXT. 211 

OR 

702-459-4114 



^^^ 5130 East Charleston Blvd. 
1^^ Suile 4M 

Las Vegas. Nevada 89122 

Add S3.00 for shipping, handling and insurance. 

Nevada residents add 3.75% sales tax. Please include 

phone number. Equipment subject to price change 

and availability. Call or write fur price list. 
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"CARD/?" 
(CARD PRINT) 

********** 

UNIVERSAL CENTRONICS 
PARALLEL PRINTER 
INTERFACE FOR THE VIC-20*' 
Now you can use any parallel printer 
with your VIC-20*. And you don't have 
to give up the use of your user port 
(MODEM), or change to special printer 
commands, or load any special soft- 
ware driver programs to do it. 

• Outputs standard ASCII codes to 
the printer. 

• Plugs in the VIC-20''' printer serial 
i/o port. 

• Understands all standard VIC-20f'' 
print commands. 

• No modification to your VIC-20*. 

• No special programs required. 

• Includes all necessary cables to 
hook up a standard printer using 
Centronics parallel input. 

• MADE IN THE U.S.A. 

The CARD/''" is a product ol CARDCO, Inc 

$76.00 



TO ORDER: ^^^H 

P.O. BOX 768 BSSISa 

WICHITA. KS 67201 Bj JggjSV'j 

(316)263-1095 WMSjm Ig 

Handling charges $3.00 

CO D, (Add $2.00) 

Personal ctiecks allow 3 week delivery 

VIC-20^' is a registered trademarK of Commodore 

Prices subject to ctiange ^. i vr fo 
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INPUTTING 

nJNCTIONS 
ON THE 

Apple 

by John D. Rippon 

Y«(|+r)«X 



Tht machine i ndc pni(;iaui m listmp 
I jllnus I sinjjlf \ iii.iMc tiinLtum 
ti» K input duriiT, th». running of a 
H^SU piogrjiT A"" wriiiiii rhi 
ruutiiiL- 2^^unll■!3 chat the t>mctii>n(.iin 
«:«.>rui:d ii> rtiferrcJ tn .ihudot say uchci 
tiinciioiis, stIlnp^, ur vjruhU*. ii. the 
BASIC pro^'rani 1 bi<- i,jn be ensuied by 
iii'citin^ J Iff F FN stjtcnu-nt at tin. top 
ot tlif RASIv." pi().;r<im 

The tuTiction II input .is a «.ttiiu; jnJ 
then the niachinc-ccKV routine is 
«.jHed llie fiinLtum cjn ht rolcrrcci t<j 
vk ithin the HASIt, pn)Krjni b\ its n.imi. 
in the DEF [ N staicnu-iit in tbe iiornul 
mjiiiicr N itiee 'li.it it is nut ne['i.ss.ar\ 
t<» msirt ,1 liinitmn in thi l^LI t\ 
b:ati.tni tit, out chi - ' ■■i(;n i>- 
iLLliiired. 

i't teiTiiij to I'n. iii.ii niriL-i (llie 
listiiv tht -TiinK >>--i Iinj; in 'he input 
huttir ($I(il>l IS uiktni-id b> BASIL 
suhiiHiime SD^^i* .ml tli«.n tr-i'istLrrud 
en th.it SLLtum 'it iiKiiKirv Libdleil 
.ST()f<\C.E - lollcivmi^ ih' ni.ii.hmt.- 
codt routine 'I he contmi'; at the lirst 
tiii.timn pu'nier tdIIov in-; the BASIt 
Lnd-ditLft i.iLtiiit.l .It S'ly, SfiAl IS 
then jhiPLd til point to ST( )R.\Cit 

[ isLin>; 1 is .1 deniiiiistr.ituin pro 
.;iaiii m whiih <i tii'iu'ion is Lnti'eJ oi. 
lv«. "ill rtnd e- ihi.iti.d on 'inc "t'l 



I'll'ii ri,<piiii i< ii. Ill lit iiM Ml 1 ii'iL dnil 
plr ^ii s ii I ait.i V. n! i.,-i' \l % / 1. il i iJ, 
vil'Llohi: I'lb a N. ir at J ju .\(L>Ii t.i .i 
'luui'i L pupils ii> 'III rn. iiii |i on.; 'mil 
I 1" i.u..ii iiiiil ,>' 'Il II -.S In Ml 
(hitt .\ivk /•■alaiiil 



Listing 1 









OC33 


0Ji2 


8139 






rilA 


TT. 








Q034 


0314 


68 






?IA 




Tnul 


riTig ftm 


ctiore 


0035 


0^15 


OSES 






S7i 


TXT 


or ar 


Aiple C 


oraputtr 


O036 


0317 


A200 






UDX 


#ic 




, 




0037 


0-319 


B'300C2 


AC> 


;n 


LIU 


IMP 


JoniL 


Mppor 




0038 
0039 


031C 
031F 


9DJ203 
C58n 






STA 
(TP 


STO 
fWF 


Ccpyj 


•igs-t cc; 


1963 


0040 


0321 


F0C3 






BF1 


i!m~ 


V 


HICRO I 


nK 


[XKl 


032? 


ES 






IHX 










0042 


0324 


D0F3 


. 




BNE 


AfA 


soar 






0043 


0326 


AOOa 


ENl 


1 


Ll» 


i|i$0 


CRG 


?300 




0044 
0045 


0328 
RWA 


A932 
9169 






IDA 
STA 


*&T 
(VA 


EOUATES 




0046 


tB2C 


06 






lire 










0047 


032D 


A9C3 






urn 


/ST 


ARTAB GEQtr 


369 




004a 


nw- 


9169 






.7:a 


(VA 


)Sr°'IB CBQU 


lea 




00^9 


0331 


60 






iifi 




ETCRM GEqU 


»8D 




CQ50 


una 




iTc 


HAu 


SD? 


J80 


N^'JT GBJir 


$207 


















lOKEH GES.U 
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EKD 
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Listing 2 












IDA 


TXIPTRh 


Jl 


10 

?o 


.IFM I 


etno foi 
y John 


Inpil 
iippc 


r 


Ig ?« 


-otic 


■TH 






30 


DEF ; 


■H Y(X) 


= 








LI3A 


iHNPIH 




40 


PRir." 


(TnRl ( 


".; 'Bi 


JAO 


■ili'F 


1. SI 


STA 


TXTPTR 




Tn 


IHfX 


"}^' iiX 


) - " 


.fi 






IDA 

jsa 


/INPUT 
TXTPTB 
TOtEK 


*1 




CALL '! 

-1IN1 


68 


X 

1 - ' 


t-i 


It'." 
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New Publications 



Introductiuii to Flcctroiiic Speech Synthesis, ■by'^'Ncil 
Si-larcr Fluw.ira VV 'Ijms & Co , In^: . 4300 Mnd Stieet, 
lnili.injpi>ii.s, IN. -lfr2hJ«, l9<\, '-W pages, papi:ib.iok 
[sh\'(i-('2-:iS'5^i-S - i\i.95 

CP'M Simplified, hyIctti..vR W^iber Weber 5> sicms !n- 
ciirr-'Minl, .S4^7 Mj^rulif Rii . Clt-itbnd, Oil 4'ilte6, 
I"'-'"' il6 pjnc->. inpirhack - , , 

ISHN'iI-V.l.s-<fii-!14-y "' SI.i9S 

VK -20 ITser Guide, b\ h>hn lli-ilboni and.Ran Tjthott. 
nshiini; MiOaw-Hiil. 2WiO rcntli'Su-L-ct, Berkeley, CA- 
ij4~ifi i9s^ ?^s pa,;(.s. papfibajk •.-"" ' 

ISB^■ll')^^A^-StI 1 _ .SI4.W 

AlicrHconiputcr ExpeTinieiiiaiiwii with the- Syiiertefc 
»«\W-1. b'. raivc ^ U-venihit Pu-ntite-HaU, "inc., 
I. njli woiiil ilhffs, NI irfil2, 1'3K^, nfJO pages, paperback". . 
ISBN 0-1 V=i>:0<)10-X ■ :^."jSl9.yfh' 

Stimulatinx Simulations fiir the VIC. brC.W. En^^^l.' 
H.i,-J(.i. Hook »^i> Int , KoLhf)lc fark, NJ^ 19SJ, 91 page%, 
pjpcrnjL K 



IM^N I i-S 1(14-^17*-'^ 



$6 50 



'1 he \pple II Circuit Description, by Urinsion D r.ayler. . 
Iinvjjil A viiiT. is O. [ill,, 4^1)0 West 62ijA St., 
iiKli.m.ip»ilis fN trO-fts 1'>S1, ITlpaijes, plusschemaotb., 

p.-.rCIP.Klf ' '. , _'';-' 

!SltN'i-rt~2-21'>';';-\ ■' 'Sli.'JS' 

TKS-KU Cohir Cumputer Interfacing, with'E^erimcnts, 

I-. Am'rLMi r St.'iuwji'l, li iHtwarJW Saras &.k..'iv[, Tiic', 
4.11(1 \\^si ftliikl St liLiluiijpoIis. IN 4626ri, I'/W, JOC^ 
p.VL«-, pap>-fl"uk ^-ii-,'- '• -_ V* 

ISBN 1'-^ ";-; 1 SI:' > "" ;--,.-ST4'.95 ' 

' .' * 

Peripherals, Etc., N.uio'ul nugazine *hiise . cditpriJl 
ihr'!".! IS .u h-itilw iri-' 1797 Capri Avr., Mentoiie, CA 
■>'^i."w riLiiiiOi l-siK fiiK Nc 1. 

Si.r Kate ,. ' " lvt./$2i.50 

. 2yr^/$.W;50 

fOMAL Handbook, b- I in findsay Reswm PiiWi.sBinff 

Ciiiiip.im liu- , A Vicntu -Hall Ccmipariy,-R!estnn;''VA " 
22'r(), 10.-^, ■".10 p,ij.'e>-, r-ipLTiMck ' . '■' ■ 

IsBNii .■'^'^w iiS~s-X . &18 95^ 

Atari Projiramniinu with n't Progcams, b\- linJa M 
■s l,r- iIt.t TjbBiiDks. Ini . Blue Riii^re SkUiimir,.PA 1?214', 
l'Js2. J'H p.i-es p.ip'jrh.ick 
bb.Nii S3<'6-Hs5-'., - $13.95 



fi mm 




Quit Playing Games . . . 

Disk Based Software to Make Your 
Computer Get Down to Business 

Disk Data Manager— Create and manage your own data 

base. Allows you to create, add, change, delete, search, 

sort, print, etc. Up to 1200 records on a single disk. 

VIC 20. . . 59.95 CBM 64 . . . 89.95 

Payroll System— Full featured, complete payroll sys- 
tem. Even prints checks. 

VIC 20. . . 89.95 CBM 64 . . . 99.95 

Mailing List— Up to 1200 records on a single disk. 
Presorts by Zip Code. Prints on stock up to four 
labels wide. 

VIC 20. . . 44.95 CBM 64 . . . 54.95 

Inventory Package— Maintains quantity on hand, cost, 
sales price, reorder point, etc. Generates suggested 
reorder, sales report, and sales analysis. 

VIC 20. . . 89.95 CBM 64 . . . 99.95 

General Ledger— up to 75 accounts! Generates Balance 
Sheet, Income Statement, Update Report, etc. 
VIC 20. . . 89.95 CBM 64 . . . 99.95 

Checkbook Manager— up to 25 expense categories. 
Tracks all outstanding checks until they are paid. 
VIC 20. . . 49.95 CBM 64 . . . €9.95 

Commodore 64 and VIC 20 
are registered trademarks of Commodore 
CONTACT YOUR DEALER FOR COMPLETE INFORM- 
ATION ON ALL YOUR DISK-BASED SOFTWARE NEEDS 
Send Self-Addressed Stamped Envelope for 
Catalogue of Games and other Applications 
DEALER INQUIRIES WELCOME 



P.O. Box 863085 
Piano, Texas 75086 



MostefCord 



(214) 867-1333 

VISA and MASTERCARD Accepted Circle No. 79 



C/3 


WARE flSSQCJflTES, J.TD. 

r 


U- 

h- 

Z- 

LU 
03 


O-card 


Questionnaire Analysis Software 




• Microcomputer bosed 

Avoid the expense of controct services -- do everything in-house on 
your own Apple 11+ microcomputer. 




• Easy dato entry 

Avoid time consuming keypunching. Dies respondent-morked cords 
entered with on Opiicol Mork Reoder (keyboord entry oiio possible). 




• Comprehensive data onolysis 

Sort an ony voriable(s), tally oil responses, condycl cross fobs, 
correlations, lineor regression, frequency distributions, ond more. 




• Complete editing capobilities 

Weight items, derive composites, odd or delete items, ond more. 


• Eosy-to-use 

Programs ore user friendly, menu driven, ond inferoctive. No speciol 
computer expertise is required. 


Call or send for more informotion tadoy 


SCiEfiiTifJC SQ^TWflRE flSSQCiflTES, LTD. 


BQX JQa ■ WflUSfllJ, Kll. 5l,l,Ql 


TELEPHQWE: (715) a>,5-2Q9.E. 


Apple 11+ is o registered trademark of Apple Computer, Inc. 
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Business Management 

Tools for the 

Apple n and Ue 

Microsoft Corporation 
announces the introduction 
of software management 
tools that design and quick- 
ly build customized Multi- 
plan electronic worksheets. 
The Multi-Tool expert 
systems create finance and 
accounting worksheets in 
Multiplan for business 
managers and profes- 
sionals. Extensive tutorial 
documentation, written by 
leading finance and ac- 
counting authorities, pro- 
vides expert guidance for 
the user. Two software 
packages are now available: 
The Multi-Tool Budget ex- 
pert system for budget plan- 
ning and control and the 
Multi-Tool Financial State- 
ment expert system for per- 
forming financial state- 
ment ratio analysis. Each 
package consists of the pro- 
gram disks, a user manual, 
and a case study folder. 

The program disks con- 
tain a demonstration that 
teaches new users how to 
use the Multi-Tool expert 
system, programs that 
prompt the user for infor- 
mation for building the 
Multiplan worksheets, and 
example cases — interac- 
tive case studies that help 
the user understand how a 
hypothetical company 
would develop the 
worksheets. 

Price is $150.00 for the 
Budget expert system and 
$100.00 for the Financial 
Statement expert system. 
For further information 
write to Microsoft Corpora- 
tion, 10700 Northup Way, 
Bellevue, WA 98004; 
(206) 828-8080. 




Format II Fiihanced 
V'lTsion 



l-«iTin.it II Enhanced Ver- 
siiin '\oi{I pt(iL(s-ni>; sofi- 
.v.irt tiir Afplc FI » .Apple 
[it fijiik'>in, ami work, 
.ill' i- 1 iiiiipiirtr'- it, jrpciMur 
t il viiiii ^irnci'iMii? sv»tem 
ili.i' [itimics cxtrtrmi ly 
t I »iMi iiirn II tti r pn p ir J 
iinii l.iK I printin;; aiiJ 
iiiiin rht Jat<i b<i>-( ni.>n 
ii'cr ill FiiMn.»i IF f nh.iri'(.d 
\if'iini u«!is ihc tJCniLiai 
libi.1 liii v^ruhlc sv..tppirig 
I' ( liTuiiii-' A niw M-rMnn 
Dt tlu b.tsi (ftiLimiciit IS 

pi I'll! (I Inr L'.1i'll SC iCLtut 

fL iinl m the nuiIiHf! lisr" 
i.i.ilust. I iiMoiiii id Hirh 
[Iit ipi rtipruitt; infornutidii 
'ruin tjih rtLtTiI btiiig 
>i I ••[ tiiiid L.uli tiin<' fn 
\K1kioii til prtp.iriiij! kirm 
k'TLiis troiii iiij'iiii;; lisfi, 
this .i!s»i pLrm.ts ihu fis\ 
/(.iKiuion IF I.iIilIs and 
••I n> rjiULilIv rLpt.tiiiv« 
(.piirii [lie user v.an 
I iiiiiisL til ■;! lit r.tio .1 (liiLii 



mom tur ivfivit-Lurd in tht 
datj baiic cv milv fen n cords 
cJu't meet selected v.Titcna 
TEit ttTtt fdes ii:rt3li.d by 
'Fiinuji U hnbaniL-d Versuin 
<irt uuiv sijndiard DOS V.)^ 
frhs, providinf> cum- 
pdtiFiititv vtritii (iCi-tlit.- shiL-lJ 
iprllitig, pniotrvjding, jnd 
iToriinttinicjfaunv fito^ jms 
Ftnmat H Fnhjfncp.! Ver 
-Ttin ri t^uim an ftf) lotinnn 
Apple if f ,i Apple He ur 
A.pplo A'cvluiikt; vitb IX)& 
ui KOM, at lujs» 641v, and 
one dt«ik drive, ihe 
avjilabitiiy nt a itCLOnd 
dr)\e wtU cnhjriLt' iis 
opLntiitn Fiut ts niir ah 
<si>liitilx rcitiurk-d. I'nLi^ in 
SISO.OO at p.irtu ipatmg 
Kcii<>Mi,;triii Microtv.irc 
iti:jlcrs Fill :iddrtu)ri.il 
inti<rinjFioa uiiitai t K.c n 
Miijiton Micriiwjii Ted 
''I'-' Ihird AvemiL Ntw 
Yurk, NY 10022, 



DB Master Version Four 

DB Master Version Four 

allows the user to have up 
to 100 characters in an 
alphanumeric field. For 
greater ease of use, a Field 
Editor has been included. 
This feature is similar to a 
word processor, allowing 
the user to add, insert, and 
delete text anywhere in a 
field without having to re- 
enter the entire field. When 
editing records the user can 
modify a record and then 
store it either as a new 
record or as the revised 
original record. Other DB 
Master Version Four 
features include easier file 
and report format design, 
improved screen prompt- 
ing, and reuseable sort 
diskettes. A short tutorial 
on file creation has been 
added to the program to 
assist the first-time user. 
To accommodate these and 
more features, a second 
program diskette has also 
been added. 

DB Master Version Four 
is compatible with files 
made with previous ver- 
sions and with the DB 
Master Utility Paks and the 
new Stat Pak. Hardware 
requirements include an 
Apple n Plus with 16K 
RAM card or an Apple He 
and one to four disk drives 
(two are recommended). A 
printer is also recom- 
mended to make use of the 
extensive report generator 
capabilities. 

Suggested retail price 
for DB Master Version Four 
is $350. Registered owners 
of DB Master Version 
Three will be offered a 
trade-in towards Version 
Four at a reduced price. 
Contact Stoneware, Inc., 
50 Belvedere Street, San 
Rafael, CA 94901; (415) 
454-6500. 
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«'«>tuiapu SEt\iSEi:.>' 

ATARI 
ADAPTOR 

Play your 2600 games 



on your VIC-20 



® 



$79 



fto9* 






Shipping ft Handling Charges: 

First two (2) items - $2.00 per item. 

Three (3) or more items - $1.00 per item. 

For orders over $100 total, surface shipping will be paid by 

CompuSense. Blue Label or special handling will be paid by 

the customer. 
Additional $2.00 C.O.D. fee on all C.O.D, orders. 
fvlasterCard and Visa accepted. Give card number and expiration 

date on order form. 
Allow three (3) weeks for personal checks. 



TO ORDER: 
PO. Box (8765 
Wichila. KS 67218 
(316) 263-1095 



u ^ 



Prices subject to change. 
VlC-20' IS a registered trademark of Commodore 



Write for 

FREE 
Catalog! 

VIC-20 or C-64 
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Apple II 
Editor/Assembler 

CUMSEA is a profes- 
sionally designed Apple II 
editor/assembler ideally 
suited for use in teaching 
6502 assembly language 
and for use in advanced 
computer literacy courses. 
Tfie system includes a 9" x 
6" vinyl binder containing 
a diskette with eight pro- 
grams, three test files, two 
demonstration files, a 
typeset 83-page user 
manual, and a diskette 
replacement-warranty card. 
All programs are self- 
protecting, user friendly, 
flexible, and easy to use. 
Two of the eight programs 
are not available for student 
use; they are used to 'fool- 
proof the remaining six 
programs and to provide a 
MENU from which these 
six programs may be 
selected. The menu-select- 
able programs consist of an 
editor, an assembler, a 
utility program, and three 
format-converting pro- 
grams. In addition to in- 
depth operating informa- 
tion, the manual contains a 
5-page table of contents, a 
self-teaching familiariza- 
tion section, five appen- 
dicies, and a 10-page cross- 
referenced index. 

Available for $26.50 
(US) or $32.00 (Canada). 
CUMSEA may be ordered 
at the special price for 
teacher and educational use 
only, FOB Edmonton. This 
is a promotional offer 
available only from 
Custom Micro Systems 
Ltd., 16921 108 Street, 
Edmonton, Alberta, Canada, 
T5X 3B2. 



Giaphics Writer for OSI, 
VIC-20 



Machine-Language 
Giaphics Writer for OSI 

CIP and C4P and the Com- 
modore VIC-20 writes a 
machine-language program 
to draw the same picture 
that you make using the 
draw routine. You can draw 
pictures with any of the 
characters except for the 
32-decimal blank space. 
Once a picture is drawn, 
the computer will generate 
a machine-language pro- 
gram and store it in high 
memory. The routine can 



be saved on cassette tape 
and loaded back in later. 
You can save the routine in 
DATA statements if you 
wish. On the VIC-20 and 
OSI C4P, color is also used. 
Using the machine-lan- 
guage routine, you can 
display and erase the pic- 
ture you drew on the screen 
at very high speeds. 

Price is $5.00 and in- 
cludes cassette and instruc- 
tions. Contact Brian 
Zupke, B.C. Software, 5152 
MarcellaAve., Cypress, CA 
90630. 




ttnrs of the «-i.rti.ii tiiifi> .jnv iIdl urii^iTt.i'tuin, pii:>ta};t 
printer, Lithcr the prhnntv Anti h.indhti!( For turthir 
(ir scLflnd.irv i'tcxt vtirccn .iiiti"matb>n'pl«.'asc.LuiiUk.t 
nU; be printed, nr both . fame e, Ilt.t:oz=i Jt SMART 
"-ide i-v-iife idi .*!() Liilumn •^jstein'i, IiiL;i * ty-' Siil>> 
dii;i:lJ\. liio Vidcx .VuIlo- .tant, ^Fr'cileiii I MP 
tirni SO-LciliIiTiii caril i-. al'io iPi'l, f.UMI fiVt-SUr 



Passive Voice Module 



The Passive Voice 

Module of the English 
Structuie Seiies provides 
practice in using the pas- 
sive voice. The module 
consists of a screening exer- 
cise and three practice exer- 
cises, each with a different 
format. Each exercise fea- 
tures a random selection of 
problems, allowing for 
multiple, non-repetitive 
practices. Also included in 
the program is a system for 
keeping records of each stu- 
dent's performance. Ac- 
companying the module is 



a teacher's manual, which 
includes a complete listing 
of all verbs, sentences, and 
paragraphs used in the pro- 
gram, as well as descrip- 
tions of visual displays. 
The manual gives precise 
instructions on how to use 
the program and the record- 
keeping system. This pro- 
gram is compatible with 
the Apple n computer, 48K 
with disk. 

Price is $42.50. Contact 
River Bend Software, P.O. 
Box 637, Atchison, KS 
66002-0637. 



Experiments in Human 
Physiology 

Experiments in Human 
Physiology is an innovative 
new microcomputer pack- 
age from HRM Software, 
which allows science and 
psychology students to 
measure and record fine 
physiological parameters. 
Developed by Dr. Robert F. 
Tinker at Technical Educa- 
tion Research Centers, the 
kit is designed for use on 
the Apple 11, II -i-, or lie 
with 48K RAM, DOS 3.3, 
and Applesoft BASIC. 
Among the topics students 
can investigate are homeo- 
stasis, biofeedback, the 
physiology of exercise, 
stress, and sleep. The kit 
can also be used for ex- 
periments in psychology. 
The package includes 
everything needed for ten 
experiments: a disk con- 
taining the experiments 
and instructions, three 
probes (no electrical con- 
tact to subjects is required), 
and an interface box that 
connects to the Apple 
game-paddle ports without 
interfering with normal 
game-paddle operation. 

The package costs 
$250.00, and is available on 
a firm order basis only with 
a 30-day full refund option. 
Orders may be placed by 
writing on school letter- 
head to HRM software, 175 
Tompkins Avenue, Pleas- 
antville, NY 10570 or by 
calling toll-free (800) 531- 
2050. (In New York or 
Canada, call collect 
(914) 769-7496.1 Order# 
502-00-SABH) 



(Continued on page 130) 
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INTRODUCING THE: 




The Executive + System 
A Truly Virtual Machine! 



Multi-User! 

UP TO 24 USERS ON LINE. 



> 



Concurrent Tasks! 

EACH USER CAN RUN MULTIPLE TASKS CONCURRENTLY. 

> 



Multi-Processing! 

UP TO 8 CPU'S PER SYSTEM. 



> 



Networking! 

COMPUTER SYSTEMS CAN BE TIED 
TOGETHER TO SHARE DATA BASES. 



> 



Up to 6. 144 million 
bytes of RAM memory! 



> 



Up to 1.848 billion 
bytes of on line storage! 



> 



High Reliability! 

THE SYSTEM IS HOUSED IN A SEALED RACK WITH 
FORCED AIR FOR ENVIRONMENTAL CONTROL WITH 
FRONT PANEL TURN KEY OPERATION, SWITCHING 
POWER SUPPLIES AND ROM BASED DIAGNOSTICS. 




A Cost Effective! 



A 4 USER SYSTEM WITH 1.2 MBYTE ON FLOPPIES 
540K BYTE RAM, 4 PRINTER INTERFACES, 
1 NETWORK INTERFACE AND A 154 MEG BYTE RXED DISK 
RETAILS FOR $ 20,390. 

PHICE AND AVAILABILITY SUBJECT TO CHANGE WITHOUT NOTICE. 



Send for information on our complete line of 

Executive Computers, Operating Systems and Business Solutions. 

Representative inquiries are welcome. 



Presented By 




CUSTOM COMPOTER SYSTEMS INC. 

AN INNOVATIVE LEADER IN PROCESSING SYSTEMS 

7250 COMMERCE CIRCLE EAST • FRIDLEY, MINNESOTA 55432 « 



PHONE (612)574-9493 
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continued) 



New Games for the 
VIC-20 

Tronix Publishing, Inc., 
has introduced three fast, 
high-quality action video 
games for the Commodore 
VIC-20 home computer. 
Deadly Skies, Gold Fever!, 
and Scorpion, are available 
through Tronix' s distri- 
butors and directly from 
retail computer stores. 

Price is $39.95 each. For 
more information on 
Tronix 's new games for the 
Commodore VIC-20 con- 
tact Tronix Publishing 
Corp., 8295 S. La Cienega 
Blvd., Inglewood, CA 
90301; (213) 671-8440. 



>*'«^ 
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Left: Scorpion, — a new fast-action game for the 
Commodore VIC-20. 
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Left: Gold Fever! — a new fast-action game from Tronix 
Publishing, Inc. 

Above: Deadly Skies — a "shoot- 'em-up" action game. 
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^UV EPROM ERASER^ 



Erases over IS EPROMS - IS mlnutas ansa UdM 

Elamant Ida 7700 hours 

Intanslty: 12Ws '/icm* al 1" 

Erisas all UV EPflOMS (2716, 2732. 2S16. 2532. ate.) 




$49.95 

* HOBBY MODEL 

INDUSTRIAL MODEL 

QUV-T8 / 2N 
$68.95 

WITH TIMER AND 
SAFETY SWITCH 

QIJV-T8 / 2T 
$97.50 



PROGRAMS: 2508, 2516, 2532, 2716, 27C16, 27C32, 

2732. 2732A, 2758, 8748, 8749H, 8748H 
OPTIONAL MODULES: 2564, 2764, 8755A, 8741 

* STAND ALONE, CRT, OR COMPUTER CONTROL 

* UPLOAD /DOWNLOAD IN MOTOROU OR INTEL HEX FORMAT 

* MICROPROCESSOR BASED * 4 K INTERNAL RAM 

* 90 DAY PARTS i LABOR WARRANTY ON ALL PRODUCTS 

SOON TO BE RELEASED: 

PROMPRO-8 128K Version $689. 



INTELLIGENT 

PROGRAMMER 

STAND ALONE 

RS-232 

• RELIABLE 

• EASY COPY INOB«IBrnHl 
eqiiipiiient nftedecl) 

• USER FRIENDLY 

COMPATIBLE: 

IBM PC, TRS-80. APPLE, CPM 

FLEX, TEKTRONICS, MDS 

(MGS-48) 

VROGRAMMINC 

PRICE INCLUDES 
PERSONA LITY MODULE 



V. 



MONEY BACK GUARANTEE $489.00 

LOGICAL DEVICES INC. 

781 W. OAKLAND PARK BLVD. • FT. LAUDERDALE. FL 33311 

Phone Orders (305) 974-0967 • TWX: 510-955-9496 
SEE US AT COMDEX SPRING - BOOTH #3019 




CAN; a unique data base resource, accessed by 
any computer or terminal and 300 baud modem, 
24 hours a day. We provide a Boston based Arts 
and Entertainment Guide, PBS programming, a 
shopping guide to computer and related products 
and services both local and mail order. Coming 
soon will be a confidential resume service. The 
CAN'S user friendly, with word based menus, no 
numbers to remember, no handbooks and best of 
all no connect time fees. 

If you would like to know more about our resume 
service or if you would like to reach thousands of 
interested viewers with your advertisement call 
(617)451-0951 or write. 

Long distance charges apply to callers from out- 
side the Greater Boston Area. 

Circle No. 84 

Computer advertising Network 

'291 Huncingcon Avenue Sox SO Boacon Maaaachueeccs 02115 
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Word Attack aid Math 
Blaster are two new educa- 
tional software products for 
the Apple and IBM. Word 
Attack is a vocabulary- 
building system that makes 
learning new words fun and 
easy. It has four educa- 
tional exercises (including 
a fast-action arcade game) 
that access extensive data 
files of 675 words. The 
words and sentences il- 
lustrating usage are pre- 
sented on nine different 
levels for students age eight 
through adult. Word Attack 
also has an editor to enter 
additional word lists. Math 



Educational Software 



Blaster contains over 600 
problems in addition, sub- 
traction, multiplication, 
division, fractions, and- 
decimals for students age 
6-12. The problems are 
grouped in "families of 
facts" and can be used with 
four different learning ac- 
tivities (including a fast- 
action arcade game). Math 
Blaster also contains an 
easy-to-use editor that 
allows the student, teacher, 
or parent to enter new 
problems for use with all 
four learning activities. 

Word Attack and Math 
Blaster each contain two 



disks and a 60-page user's 
manual for $49.95. For 
more information contact 
Davidson &. Associates, 
(!.'•' I .lir.oul. I'l.i. < =i2. 
H.in. 111! I'.i lis Vl-iiIi s. I \ 
<i'2"l I .ill ,21 < ^^^-^^2( 







OSI Disk Users 



Double your disk storage capacity 
Without adding disit drives 

Now you can more than double your usable floppy disk 
storage capacity — for a fraction of the cost of additional 
disk drives. Modular Systems'DiskDoubler™ is adouble- 
density eidapter that doubles the storage capacity of 
each disk track. The DiskDoubler plugs directly into an 
OSI disk interface board. No changes to hardware or 
software are required. 

The DiskDoubler increases total disk space under OS- 
65U to 550K; under OS-65D to 473K for 8-inch floppies, 
to 163K for mini-floppies. With the DiskDoubler, each 
drive does the work of two. You can have more and 
largrer programs, related files , and disk utilities on 
the same disk — for easier operation without constant 
disk chang^es. 

Your OSI system is an investment in computing power. 
Get the fvJl value from the disk hardware and software 
that you already own .Just write to us , and well send you 
the full story on the DiskDoubler, along with the rest 
of our growing family of products for OSI disk systems. 

™DiskDoubler is a trademark of Modular Systems. 

Post Office Box 16 C 
OradeU, NJ 07649.0016 
Telephone 201 262.0093 



Modular Systems 



Circle No. 85 



0S9 

APPLICATION 
SOFTWARE 



ACCOUNTS 
PAYABLE 

$299 



GENERAL 

LEDGER 

with 

CASH 

JOURNAL 



PAYROLL 

$499 



SMALL 

BUSINESS 

INVENTORY 



ACCOUNTS 

RECEIVABLE AQQQ 

$299 ^^^^ $299 



COMPLETE DOCUMENTATIOIM $19.95 

OS9 & BASIC 09 ARE TRADEMARK OF 
MICROWARE, INC. & MOTOROLA CORP. 



SPECIALTY 
ELECTRONICS 



(405) 233-5564 
2110 W. WILLOW - ENID. OK 73701 

Circle No. 86 
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(continued) 



Micro Math 

Micro Math is a new 

series of educational math 
programs for 12-16-year 
olds. Part of the more ex- 
tensive Master Math pack- 
age, Micro Math is in- 
tended for use on the 
Sinclair ZX81, Timex 1000, 
Commodore PET, and VIC- 
20 in schools and colleges 
as a computer-assisted 
learning aid and at home as 
a self-tuition and revision 
course. Micro Math is com- 
prised of six program 
suites, each containing four 
programs available on two 
cassettes. 

Price is $50.00. For 
more information contact 
PM International, P.O. Box 
87, Buckfield, ME 04220; 
1207) 336-2500. 



NeW£anes firom 
Peiiguin 

Thunderbombh and 
Crime Wave zctiuir*: 4iiK 
Apple with disk drive, 
ki*> board or juyttick. cun- 
trol Mockingbnard Speech 
jnd Sound Board option 
I»ricc $19.95 eich Spy's 
Denii&c reqiiirLS 'IZK Atari 
tfJU or SnO tor disk or 24K 
Atari 41)0 or 80O for cas- 
sette, kcvbuard, |oystic£, or 
pjJdlc control L'ricc- 
$19.95. 

(Jbicvr slides or black - 
.ind white screen dump<t.ire 
jvaiUble fur illustrjtioD. 
Please contact Mary Lockei 
jLt T'c-itKiun Softwjie, £30 
Ith Ave , Ccne\j, (L 
ftOlW, 11121232-1984 



Mnemonic Assembler 



The Cheap Assembler is 

a mnemonic assembler for 
the Apple II computer. 
Now, for less than the cost 
of a game, you can have a 
complete assembler/editor 
system at your disposal. 
The system features in- 
clude unlimited length 
labels, free -field program- 
ming, two-pass RAM/disk- 
based assembly, text editor 
with ten commands includ- 
ing character- insert and 
delete, line- insert and 
delete, type-over modifica- 
tions while viewing the 
preceding lines on the 
screen, interactive opera- 
tion, and explanatory 



debugging messages. Edit, 
assemble, and run a pro- 
gram without ever leaving 
the system. Also included 
are a tutorial-style manual 
and demonstration routines 
on disk. There is no copy 
protection. 

Applen-i-,48KDOS3.3 
required. Price is $20.00 
plus $4.00 postage and 
handling. Available from 
Thunder Software, P.O. 
Box 31501, Houston, TX 
77231; (713) 728-5501. 



Wiintto hit >f urptinhiit in 

MICRO PO fi.yMn2 
Aiabcni. N/ii'TO.}/ 



C64-FORTH 

for the Commodore 64 

FORTH SOFTWARE FOR THE COMMODORE 64 

C64-FORTH (TM) for the Commodore 64 - $99.95 

• Fig Forth- 79 implementation with extensions 

• Full feature screen editor and macro assembler 

• Trace feature for easy debugging 

• 320x200, 2 color bit mapped graphics 

• 16 color sprite and character graphics 

• Compatible with VIC peripherals including disks, data set, modem, 
printer and cartridges 

• Extensive 144 page manual with examples and application screens 

• "SAVETURNKE Y" normally allows application program distribution 
without licensing or royalties 

C64-XTEND (TM) FORTH Extension for C64-FORTH - $59.95 
(Requires original C64-FORTH copy) 

• Fully compatible floating point package including arithmetic, 
relational, logical and transcendental functions 

• Floating point range of lE+38 to 2E-39 

• String extensions including LEFT$, RIGHT$, and MID$ 

• BCD functions for 10 digit numbers including multiply, divide, and 
percentage. BCD numbers may by used for DOLLAR.CENTS 
calculations without the round-off error inherent in BASIC real 
numbers. 

• Special words are provided for inputting and outputting 
DOLLAR.CENTS values 

• Detailed manual with examples and applications screens 

(Commodore 64 is a trademark of Commodore) 

TO ORDER - Specify disk or cassette version 

- Check, money order, bank card, COD's add $1.50 

- Add $4.00 postage and handling in USA and Canada 

- Mass. orders add 5% sales tax 

- Foreign orders add 20% shipping and handling 

- Dealer inquiries welcome 

PERFORMANCE MICRO PRODUCTS 



770 Dedham Street. S-2 

Canton, MA 02021 

(617) 828-1209 
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SOPHISTICATED TELE-COMMUNICATION IS HERE 

THE COMMUNICATOR 

for 4.0 Commodore Computers 

JIM STRASMAS REVIEW: 
"THE BEST TERMINAL PACKAGE I'VE SEEN YET " 

By April 1 (maybe sooner) It Will Be Even Better 



TRUE CTRL 



SPEEDS UP TO 9600 BAUD 
XON — XOFF 
KEY (we do our own keyboard 



scan) 



THE HMOWAAE — A printed circuit board; easily installed in the CBM. It uses 
no CBM connectora; gives a serial pon with true nS232C standard. 
THE SOFTWARE — 

— Emulates the AOOS Regent 100, AOM 31 and/or the 

TeleVldeo 950. 1 Or choose the VTI 00 model for use wHh DEC and VAX 
computefs. 

— Runs coresident with BASIC programs; lets BASIC 

progiams and program on host computer communicate to develop real- 
ly sophlstlcaled communicaUon and control capabilities. 

— The program is on ROM at either address; no disk loading 

raquited. Uses only St2 bytes o< RAM: vnit relocate Itssll around any other 
machine language program at top of memory. 

— Will upload and download and run BASIC programs. With BASIC 

program wil upload and download standard data files. 1 00 page manual 

gives program listing tor BASIC programs. 

Excellent text editor designed to work with THE COMMUNICATOR 

THE COMMUNICATOR $200 

Text Editor $40 

1200 baud modems beginning at low. km $385, and even less when purchased 

with THE COMMUNICATOR 

AMPUFY, INC. 
2325 Macbride, Iowa City, Iowa 52240 319^37-8378 

1 trademarks Adds Regent, Inc., Lear Liegler, Inc., Televideo Systems. Inc. 
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Commodoie |S4 and 
VIC-20 Products 

C'unipiittr Marketing 
h.i<> .iniiounced distribution 
iif -M-vcTal new pruduLts tor 
the Pomniiidorc 64 and 
Vh'-Ki LninpiULT<> IH- 
'«i»nt.d til III. Li!>(.il with J 
nioiiiccii, Vidcu Pak 80 lets 
th{. V iiiiimndnie 64 users 
sMitili tntm 4l)- tij 81) 
iiiluiiin -iTLon tomuii Z-80 
Vidct) Pak prm idcs the cun 
iLiiicncc (it an R(i-cohimn 
SLiLcn ttirmai and thi; 
powci o' CP M i.jpabihtv 
Availalilc lui buththL Cum- 
mcidiiii: M jnd the Vir-2(), 
iht Trmtcr Intcrfai c i- sup- 
phcd with a uthlv ta Lon- 
iiLCt t<i KS-?'i2 intLrtaud 



pnntcEs jsd outer ilevices* .- 
such 3^ modems:; ' ■ - 

Fii'r the VlC-^y the 
Video, Pak Cart^dlge in-. 
CKJ.SC9 the- 'video 'ilispiay 
horn 23 luiu ot.2Jvctiar^ 
actcrs to the mdu^liy stjii' 
dard Z4 lines of uthcr 40^01 
80 cbar.utcis. The "'IMi 
NUmiiry C'^rtnd^c is a low. 
ct»<it, high quality Wiiy oT^- ' 
crea^iing the'memory'uf the ' 
VlC-2{>, and .thi. Expansion] 
C hassis Kives the- FIC' 
uwnei the L-apabi]ity of os- 
mi; an> foui LOmpatiMc 
Lartridct-'^ siinultan(»us|y. 

r<;r miwc uifcvmation . 
contact (!(nnputcT.''Mafkct -.' 
uii; Sen ices. Inc., 300 W, 
Marltrm l?ike.-eht:try HtR,; 



Instant Recall 



Instant Recall is an 

easy-to-use freeform filing 
system for the Apple n and 
Apple n + disk system with 
at least 48K. It has been 
designed to avoid the 
necessity of user prepara- 
tion of fields and formats. 
Instead, information can be 
entered on a fresh screen in 
'much the same way as on a 
blank sheet of paper or in- 
dex card. Any variety of in- 
formation can be inter- 
mixed on a single disk file, 
or separate disk files can be 
established for specific pur- 
poses. Information from 
even a long file can be 



retrieved in, at most, two 
seconds; and the initial 
loading time for a file is five 
seconds or less. 

Price is $59.95 and in- 
cludes an Instant Recall 
tutorial, a command quick- 
reference card, specimen 
screens, separate keyboard 
diagrams highlighting 
special key functions in 
each mode, and a complete 
index. Available from Sams 
Software dealers. For more 
information contact 
Howard W. Sams & Co., 
Inc., 4300 West 62nd St., 
P.O. Box 7092, Indianpolis, 
IN 46206; (317) 298-5708. 
JMCRO' 



Toke off oncl flv ^ 

th6MflCH-9 ^ 
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%^ 



V»v. 



.4, -J, 



ty-ff 



%¥., 



'^ 



.■/ . 



•■N^il' 



:.<A 



'X. 



V. 



^ 



Cf^ 



•>4^<S 



|p|ipy|';f^Qtyres: 



/- 



'%^ 



^ n 



'•^ 



iust mieiciscd" .. ^ 

, . MflC^H-^ Conerpi fiscal. <_ 
A superset- of standard Pascal 
No rem expansion bgofd Jiecessory 

Sieve** Bendimorh 



Compiled Bvtes 


Total Bvtes 


Comp + load 


Execute 


154 


154 


12 sec 


264 sec 



Introductorv Price $69.00 plus $5.00 S&H USondConado 
*Fllftt65 Is o Crodenxirti of (kxhuielf InCernotional • 



'd«tC|>oste edtl^r ^ ^.ehips sock^ 
"yi^ 2-K ' Stoftc rom •Jiff sockets fet- ronte •- ^ 
jm^XSQp^ 6.00 5&H**» IK oncT GSeodo 

> for fnore,JHfibrmotk5ft^35(^oct-. , -^C , ^--^'"--^ ■^^^ 
lWod«J6r M»nir»9 Systems, lrtc.-^» mO^^-e?nnsvlvQfaicrSt 
Jucsofv, flri^eno • 857J4r« (6d2a'74604r8 ^ '' " •^^' 

In the JDk Contpce . > • ^ ; -' . 

,.'RtS Micrpsvstems Ltd.-f Gresham^House 
Tu/kHertfram fid..^» FelthomMWdleser •- 
TUn3 6Hfl •01-8^3775. ^ - " ' 
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A Parallel Printer Interface for 
Apple 



SSM Microcomputer Products, Inc. 
announces the APPIC/G, a new 
parallel printer interface for the Apple 11 
and Apple lie. The package includes an 
APPIC interface card, cable, and Graph- 
It graphics software. The APPIC 
parallel interface works with any stan- 
dard parallel printer. Graph-It, a com- 
plete graphics dump program, allows 
you to do a screen dump to any of the 
following printers: Apple Dot Matrix, 
MPI, IDS, NEC, Okidata, Silentype, 
Epson, Trendcom, Anadex, C. Itoh, 
and Centronics. 

While other parallel cards require 
purchase of additional firmware to sup- 



port different printers, with the 
APPIC/G you do not change anything 
— simply choose your printer from a 
menu and print. 

With Graph-It you can print graphs, 
charts, equations, grids, logos, titles, 
and hi-res Apple graphics. You can also 
magnify, print normal or reverse im- 
age, do page centering and cropping, or 
insert graphics, superscripts, and 
subscripts into any Applewriter n file. 

The SSM APPIC/G package is 
$129.00. Available from SSM 
Microcomputer Products, Inc., 2190 
Paragon Drive, San Jose, CA 95131; 
(408) 946-7400. 




New Apple DetachailbIe-% .vv .S\. 3! ^'^ ■■' - 



Keyboard by^AMKEY 



'^sfcv.'v; 



:'»,, 



'I he PRO-lOO IS an iiitLUigcnt, -conipactjDlc 'wi(tb' exiting "Apptjc 
di.cj<.-liahlu, ijpacitAnco kcyhoiiid with periphrials. It inciudus AMKBY's-.Aigli- 
fiii. If^suro fur usL- with the Apple II tu quality capaGi^cc' IfKfkcv 'IxySowid 
Apple IF +■ It ollcrb ll'd k(.>s supporting '"' ' -— r^ * - 5 r. i 

all cxiNim;; Apple tiinttions plus 
hnrr/oiual and vcrtiLal ciittot move- 
ment, separate number pad with enter 
ktv aiitii-iLpt-at. rL-l«)i.atcd reset key, 
C AP b lock key, pnwbi (.)N indicator, 



LaM (tev 



' + !. 



ke>s. 



iipp«.r lower 

Visit alt kevs, IF, Apple BASIL 

.lud I s prDKianimalire keys 

'Ihe riU) lOi) kivboard pj(.kaf;e i<. 



with cnclosurt: aticTd-fcxU interface cord. 
uppiT/lnMer(^se4:hip, boot diskette^ and 
u.sur-inbtaltatiiHtuiiitruJtiqns ' - '- 
u ' - * ' ■' ',■ 

Pnee ]& $26^00, including' sfiip- 
mcnt and handljni;. For •mure informa- 
tion Lontact Mf. Robtxt' Drmnda'iia, 
Vice J'rcsid«:nt;ij,AivlK.EY, iNc;.', 220 
Kallardvale ttrccij .Wilminston,"] MA 
01887, |6I7) 65S;78CX^ 




l!lfe-*j-*f»f« 



The KeyWiz VIP — A New 
Auxiliary Keyboard 



Creative Computer Peripherals, 
Inc., has announced its new auxiliary 
keyboard called the KeyWiz VIP (Very 
Intelligent Peripheral). It consists of 31 
user-programmable function keys 
housed within a new injection-molded 
color-coordinated case. Each of the 31 
keys may be easily programmed with 
up to eight characters each and pro- 
grammed again while using the shift 
key giving the user 62 user-defined 
keys. Four such keyboards are stored in 
the devices memory, easily accessed 
anytime, making 248 preprogrammed 
keys available to the user at the touch 
of a button. A 7-segment LED displays 
which one of the four keyboards you're 
using. Each key may be redesignated 
over and over again, even in the middle 
of a program, as your needs change. 
KeyWiz VIP is independent of any soft- 
ware and can be ordered for the Apple 
n + , Apple Ee, Franklin Ace, ^r TRS-80 
Model m. 

For more information write Crea- 
tive Computers, Aztec Environmental 
Center, 1044 Lacey Road, Forked River, 
NJ 08731; (609) 693-0002. 

(Continued on page 136) 
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AKE COMMAND OF PLAYER-MISSILE GRAPHICS 





••• ^ 



by Roger Bush 



PHONE 
RIGHT 

IN 
WITH 

The Friendly Terminal 

by Harry Koons 

Want to put your Atari in touch with other computers? 
TELETARI is just what your modem needs: a powerful 
telecommunications program that's a breeze to use. 
Choose the functions you want from a menu. Send or 
receive text or programs, save new data on disk, or 
print it on paper. A buffer of up to 20K bytes holds your 
data; page through it to find what you want. Adjust and 
save terminal parameters with another menu. 

TELETARI is adaptable to most remote computers 
and most modems, including 1200 baud modems. It 
works through the RS232 port on the Atari 850 Inter- 
face, and it's suitable for any RS232 application and 
supports all 850 options. It's also compatible with the 
Bits Full-view 80'" board. 



You can write bnlliant animated graphics in Atan 
BASIC — without any bit-mapping, and withoLit kiiow 
ing machine language 

All you need is PM ANIMATOR, the new Player- 
Missile Graphics toolkit from DON'T ASK. 

PM ANIMATOR makes it easy to: draw pictures and 
animate them, change your drawings and animation 
sequences, save your graphics creations on disk, and 
build them into your BASIC programs You do it all 
with Player-Missile Graphics. You do it from BASIC, 
using two almost magical editors, plus PM ANIMATOR'S 
special subroutines for Player-Missile Graphics control. 

Create the most visually exciting software youVe 
ever written. The power is yours. 

Have your software dealer demonstrate PM ANI- 
MflTflR inriiiries numerous demos and detailed owner's 
B^H^jc, vuiw, ,cn , Requires 32K, disk Suggested retail $34.95 

Also available by mail from DON'T ASK Send chec^ w 
money order for $34 95 ■ $2.00 shipping, handling, Califor 
ma residents add 6 sales tax (6 5 if vou reside in I A 



D(!)nfT ASK 

COMPUTER SOFTWARE 



2265 Westwood Blvd,, Ste, B-150 
Los Angeles, California 90064 
(213)477-4514 




Ask your software dealer for TELETARI, by DONT ASK. 

$39.95. Requires 32K, disk, BASIC, 850 Interface. 



D®nfTASK 

eOMPUTCII SOFTWARE 



2265 Westwood Bl., Ste. B-150 

Los Angeles, CA 90064 

(213) 477-4514 



Dealer inquiries welcome 



Or order by mail direct 
from DON'T ASK. Add 

$2.00 shipping/fian- 
dling to your check or 
money order. Calif, resi- 
dents add 6% sales tax 
(6.5% if you reside in 
L.A. County). 



Atari is a trademark of Atari, Inc Full-view 80 is a trademark of Bit 3 Computer 
Corporation Circle 90 
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Low-Cost Clock Card Available 
for Apple 

The new dat«a«clock© multi- 
function plug-in card designed by P &. B 
Research Consultants is fully compat- 
ible with Apple computers including 
the Apple II, Apple 11 + , and Apple He. 
Purchaser has the option of ordering the 
dat«a«clock either assembled by the 
manufacturer or in a do-it-yourself kit. 

Easy to use, the msm 5832 has data, 
month, and year capability, and the on- 
board battery has a two to three-year 
life. There is also an externally access- 
ible EPROM. 

Price is $85.00 (assembled) or 
$55.00 (kit with easy-to-follow 
assembly instructions) plus $2.00 ship- 
ping and handling. Send check or 
money order to P &. B Research Con- 
sultants, 231 East Grand Blvd., 
Detroit, MI 48207, For additional 
information contact Art Potter, 
(313) 259-5951. 





New Life for the Atari 800 

The Mosaic 64K RAM Select is a 

new board that will plug into both the 
Atari 400 and 800. Atari 800 owners 
can plug up to three Select boards into 
their computer for 196,608 bytes of 
useable RAM. The Mosaic 64K RAM 
Select is totally bus-compatible for use 
with Atari 16K and/or Mosaic 32K 
RAM boards. Atari 800 owners can use 
the board to simulate the Atari 1200 
architecture or configure the board for 
super powerful bank selection. The 
64K Select is compatible with both 8K 
and 16K ROM cartridges and installs 
without solder. Used with the Mosaic 
Adapter, 48K Atari 800 owners will 
have 112KRAM. 

For more information write Mosaic 
Electronics, Inc., P.O. Box 708, Oregon 
City, OR 97045. 



New RS-232 Interface Cable 




IQ Technologies, Inc. announces its 
new "intelligent" RS-232 interface 
cable, the SC821 SMART CABLE, 
which instantly hooks up any com- 
puter to any peripheral with the flick of 
a single switch. The unique onboard 
logic circuitry looks at the RS-232 in- 
terface on both the computer and the 
peripheral and then correctly connects 
the interfaces. SMART CABLE elimi- 
nates the need for cable design. 



"breakout boxes", and the need to 
maintain a large inventory of custom 
cables to ensure correct connection. It 
is invaluable for equipment demonstra- 
tions, systems integration, equipment 
leasing, engineering, field service, and 
debugging. 

The SMART CABLE connects all 
handshake lines used Ln a specific ap- 
plication in addition to CTS, DTS, 
DTR, and DSR. It functions at baud 



rates up to 19,200. Indicator lights 
point out which device is disabling data 
transfer in the event that a hardware or 
software problem exists. SMART CABLE 
is completely transparent to baud rate, 
word length, error, and data codes. 

Price is $245.00 complete. Order 
model SC821 from IQ Technologies, 
Inc., 11811 N.E. First Street, Suite 308, 
Bellevue, WA 98005; (206) 451-0232. 
TWX 910-443-2308. iVICftO" 
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PUT PRICES IN CHECK 



CARTRIDGE RIBBONS FOR 



APPLE PRINTERS 

NEC 8023 A 

C. ITOH PROWRITER 



INNOVATIVE 
CONCEPTS 

FLIPNTILE 

DISC STORAGE BOX 

holds up to 60 diskettes 
5Va" 8" 

524.»^. S29.95 



DUAL SPOOL RIBBONS FOR 

OKIDATA 
PRINTERS 

80, 82, 83 " Doz 
92,93 ^2." ^29.92 



ANTI-STATIC 
SPRAY 

FULL QUART SIZE 
WITH DISPENSER 



CARTRIDGE RIBBONS FOR 

EPSON 
IMX-80 MX-1001 









RIBBONS FOR 



IDS PRINTERS 

EA DOZ 

440 ^2/^ ^29.^2 

PAPER TIGER ^6.^^ ^75.°^ 
MICROPRISM ^7.^9 ^86.29 

PRISM 10.^M18.2^ 



MEMOREX 
DISKETTES 

5' 4 SINGLE SIDE - DUAL DENSITY 

$OA 99 

■■^T ■ 10 PACK 



CARTRIDGE RIBBONS FOR 



COMREX 
DAISYWRITER 2000 



»6. 



95 



QT. 



MAXELL 
DISKETTES 

5Va" single side 
dual density 

MD-1 



10 PACK 



DISKETTE 

STORAGE 

BOXES 

S'/V - BLUE OR BEIGE 



»2. 



49 



EA. 



COLOR- 
CODER 

LIBRARY CASE SET 

CONTAINS 5 BRIGHT COLORS 

5^/4" 8" 

S19.95 S23.95 



LABEL 
SPECIAL 



»2 



99 



/k 



1 GALLON REFILL^ 9.^5 



(5K MIN) 



1 ACROSS 3 X 15/16 CONTINUOUS LABELS 




TOLL FREE 800-343-7706 
IN MASS 617-963-7694 

PHONES OPEN 9AM-7PM EASTERN TIME 



MOST RIBBONS AVAILABLE IN COLORS TOO! 

CALL OR WRITE FOR OUR SUPPLIES CATALOGUE 

ON ORDERS UNDER M4." PLEASE ADD ^S." FOR SHIPPING 

MINIMUM RIBBON ORDER ^30.'" OR 1 DOZEN 

- Oieck-Mate — 




51 DIAUTO DR 



P O BOX 103 



RANDOLPH. MA 02368 



MASS RESIDENTS 
ADD 5% SALES TAX 
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Reviews in Brief 



Product Name: Platinum Worksaver 

Equip, req'd: TRS-80 Color Computer 
Price: $30.00 plus shipping 

Manufacturer: Platinum Software 

P.O. Box 833 

Plattsburgh, NY 12901 
Desciiption: Platinum Woiksaver is a single-key data- 
entry system and screen editor for the Color Computer. 
The software provides automatic line numbering and an 
insert mode. Keys can be redefined with new definitions 
stored with the program. A keyboard overlay is included, 
displaying the control key functions. A numeric mode 
turns the J, K, L, U, 1, O, 7, 8, 9, and keys into a numeric 
keypad. 

Pluses: The program provides several useful new 
capabilities for CoCo. The software is disk compatible, 
and provides an automatic "PCLEAR 0" upon execution, 
which gives an extra 1.5 of memory for program storage if 
no graphics are required; the screen editor functions in 
program mode, allowing array editing from within a pro- 
gram; dynamic editing allows programs to be modified 
without destroying data already created; BASIC lines can 
be split or joined; and the computer can be shifted into 
high or low speed with a two-key command. 

Minuses: A minor fault is that the user must remember 
not to execute a NEW command; a DELO- is used instead. 

Documentation: A 28-page manual is provided that steps 
the user through the powerful new keyboard. In addition, 
an array editor program is included that demonstrates the 
ease and power of dynamic input. 

Skill level required: A knowledge of BASIC programming 
is required, since it is a programmer's utility. 

Reviewer: John Steiner 



Product Name: Color Diskette Repair 

Equip Req'd: TRS-80C Color Computer with disk 

and 16K memory 
Price: $31.95 

Manufacturer: Computerware 

Dept. C, Box 668 

Encinitas, CA 92024 
Description: This product allows the user to examine files 
as written on disk by the Color Computer, change those 
files, and rewrite them to the same sector or a new sector. 
However, if a file has been erased or damaged, normal 
DOS commands cannot read them. Color Diskette Repaii 
helps restore such files. The disk also can read a binary file 
and extract the start, end, and transfer addresses of a file to 
facilitate transfer to tape (FIND) . VIEW allows you to ex- 
amine and print out ASCII files from disk: MASTER 




LISTER prints a disk's directory, and MASKILL allows you 
to delete unwanted files from a disk quickly. 

Pluses: Low cost for a disk program. Several useful 
features for the advanced disk user. 

Minuses: MASTER LISTER should list track and sector 
linkage information, or else REPAIR should display the file 
headers (bytes 0-55) that contain the linkage information. 
Also, VIEW should handle all file types instead of just 
ASCn files. (In addition, the copy I reviewed had a bug in 
the granule-counting routine, which requires that the user 
add two to the granule number shown in the directory if 
the file is located above granule $22 (34 decimal.)) 

Skill level required: This product is aimed toward the 
serious disk user and requires a good understanding of disk 
operating principles. 

Documentation: Nine pages of instructions. However, 
directory access is not clearly spelled out; when first 
loaded, REPAIR defaults to the directory, but this is not 
stated. Without this clue I found it difficult to get started. 

Reviewer: Ralph Tenny 



Product Name: Multiploy 
Equip. Req'd: Apple II -i- 
Price: $19.95 

Manufacturer: Reston Publishing Co. 

11480 Sunset Hills Road 

Reston, VA 22090 
Author: Paul Coletta 

Description: This is an arithmetic drill (whole number 
add, subtract, multiply, divide) disguised as an arcade 
game. Shoot down the attacking problem ship (by answer- 
ing the problem correctly) before it shoots you. You can 
make the game more exciting by choosing to have the 
problems attack at lightening speed. 

Pluses: There are three levels of difficulty. Any missed 
problems are highlighted at the end of the game. The pro- 
gram saves the highest score and has an option for less 
sound. Good for classroom application. 

Minuses: Does not record individual achievement. 

Documentation: A booklet includes in-depth instractions. 

Skill level required: A game parents can do with their 
children ages 6-14. An adult would have to explain the in- 
structions to a young child. 



Reviewer: Mary Gasiorowski 



.(Continued on page 140) 
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BUSIWRITER 



BGSIWRITER A Honey of a Word Processor 

Why word processors? 

Word processors allow the user to quickly and easily create letters, 
memos, notes, reports, term papers, manuals, poetry and any other writ 
ten information using the memory of the computer as a pencil and 
paper The computer display or terminal acts as a window through 
which the user views the information as it is entered. The outstanding 
advantage of using BUSIWRITER is that it acts not only as a pencil and 
paper but as a perfect eraser and automatic typewriter 





a H-H-a-ti-Q-Q-B-H-fl-fl O-H-I3-E? E3 



,£i Bs a a a a a a la a a a aa^ 




For Commodore CBI\/l-64 
Commodore 1515, 1525, Epson, C. Itoh, Qume, Diablo, NEC Spinwriter, Starwriter, 

Prowriter, Okidata, Microline, Gemini-10 
And many more printers 
BGSIWRITER The Queen Bee of Word Processors 

BUSIWRITER allows the user to quickly and easily make any number 
of alterations to the text. BUSIWRITER will instantly reformat your text 
and show you exactly and continuously how the final output will appear. 
BUSIWRITER has more functions than any other known microcomputer 
word processor With BUSIWRITER assisting in the entry of text, provid- 
ing a 20 page memory and performing an enormous number of editing/ 
composing functions, the preparation of written data is far faster and 
outstandingly more accurate than if it were prepared by hand. 

BOSIWRITER With the Sting Removed from the Prices 
BUSIWRITER 64 only $99.00 for the CBM 64 




BGSIWRITER AVAILABLE NOW FROM YOGR LOCAL DEALER 

(800) 227-9998 
FOR THE NAME OF YOUR NEAREST DEALER 

California, Canada, Alaska and Hawaii please call (415) 965-1735 




1 



Skyles Electric Worlcs 

231G South Whisman Road 
Mountain View, CA 94041 



Europe please contact Supersoft, Winchester House, Harrow Wealdstone, England HA3 7SJ, Tel. 01 861 1166 
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Product Name: 



Equip, req'd: 



Price: 



Manufacturer: 



RAM/EPROM Memory Board, p/n 
81-330 

AIM, KIM, SYM or SLIM 

microcomputer 

$99.95 Assembled w/o memory 

[81-330A) $49.95 Bare board (81-330B) 

John Bell Engineering, Inc. 

1014 Center St. 

San Carlos, CA 94070 

(415) 592-8411 



Description: This memory board, in the popular 4.5" x 
6.5" card size, uses the industry standard dual 22-pin con- 
nector. The connector pinout is compatible with the ex- 
pansion connector on AIM, SYM, and KIM microcom- 
puters and is designed as a memory expansion for the 
SLIM microcomputer. Sixteen memory positions are 
designed to accept either 2716-type EPROMs or 61 16-type 
read/write memory devices for a total of 32K bytes of 
memory expansion. The board uses the entire 16-bit 6502 
address bus and is decoded for the address range 
$0000-$7FFF, with an exclusion switch to allow the 



$000-$7FF block to be disabled. If the existing 2114-type 
memory is removed from AIM, SYM, and SLIM boards, it 
is possible to populate this board with 6116 memory and 
get a 32K computer with contiguous memory from 
$0000-$ 7FFF; the combination will draw no more power 
than the single-board computer and, perhaps less! 

Pluses: Excellent construction allows even inexperienced 
assemblers to assemble a bare board version. 

Minuses: The documentation is minimal and an inex- 
perienced user could have a difficult time getting the board 
on-line without advice. 

Documentation: Less than the bare minimum. 

Skill level required: Even the assembled version should 
not be purchased by anyone inexperienced with computer 
hardware, unless he has a source of advice. 

Reviewer: Ralph Tenny 
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.INTERSTELLAR DRIVE 

i^H^ ♦ ^ A SOLID STATE DISK EMULATOR 





SAVE MONEYI 
Increase your 
computer's productivity 

The INTERSTELLAR DRIVE is a high performance 
data storage subsystem with independent power 
supply, battery backup, and error detection. It has 
256KB to 1 Megabyte of solid state memory integrated 
to perform with your operating system. 



Save valuable time! 

5 to 50 times faster 

performance than floppy disks 

and Winchester drives 

PION'S irJTERSTELLAR DRIVE is designed for use with a 
family of interfaces and software packages. Currently avail- 
able are interfaces for IBM, SIOO, TRS80, Apple, SS50, and 
most Z80 uP, and software for most popular operating systems. 
Additional interfaces are continually being developed for the 
most popular computers. 

Basic Price for 256KB unit [includes interface and software] 

$ 1 095 '''"■^ ^"^ (where applicable) and shipping 

Visa and Master Card accepted 



PIOIM#INC. Tel.(61 7)923-8009 

1 1 R Walnut St.,Watertown, n/IA 02 1 72 

TRS80 trademark of Tandy Corp. Apple trademark of Apple Computers 
Interstellar Drive trademark of PION, Inc. 
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SAYEON ... COMPUTERS • MONITORS 
PRINTERS • PERIPHERALS • SUPPLIES* 



STAR MICRONICS GEMIN1 10 



EPSON FXrQO 




OMEGA SALE PRICED PRINTER 

•DOT MATRIX C ^^%^% 

^MMmW SALE ENDS 6/30/83 



• UpTol60cps» 11 X 9 Matrix •Pinfeed Platen 

• Proportional Spacing • Graphics • Elite Pitch 

• Centronics Parallel Interface • Internal 2 K Ram 

NOW AVAILABLE FOR IMMEDIATE DELIVERY! 

For Our Price. . .CALL 1 -800-343-0873 TODAY I 



SAVE ON LETTER QUALITY PRINTERS 

DIABLO 620 New Low Price 929.00 

DIABLO 630 w/API & cable 1 ,749.00 

NEC 3510 SPINWRITER 1,399.00 

NEC 7710 SPINWRITER 2,043.00 

NEC 7730 SPINWRITER 2,099.00 



DOT MATRIX PRINTER BARGAINS 

C-ITOH PROWRITER 8510 AP 399.00 

IDS MICROPRISM 480 549.00 

OKIDATA MICROLINE 92 (NEW) 549.00 

OKIDATA MICROLINE 93 (NEW) 859.00 



BIG SAVINGS ON ACCESSORIES 

HAYES SMARTMODEAA 300 Baud 

HAYES MICROMODEM II (APPLE II) 

MICROSOFT SOFTCARD PREMIUM SYSTEM . 

ORANGE MICRO GRAPPLER + 

PKASO PRINTER CARDS 

RANA ELITE I (APPLE II) 

SIGNALMAN MODEMS (MK I) As Low As . . 

ACCESSORIES & SUPPLIES 

OMEGA Has A Complete Line of Accessories S 
Supplies for the Apple II and many other 
Popular Computers by manufacturers like: 

• D. C. Hayes • Microsoft • Tymac 

• M 8 R Enterprises • Mountain Computers 

• Kensington Microware • Practical Peripherals 

• T.G. Products • Videx 

SOFTWARE 

Omega Caries Software by the following 
companies: 

• American Business Systems • Ashton Tate 

• Dakin 5 • Innovative Software • Microsoft 

• Sorcim • Stoneware • Visicorp 



MONITOR SPECIALS FROM OMEGA 



230.00 
289.00 
459.00 
120.00 
129.00 
299.00 
85.00 



AMDEK 300 G 

AMDEK 300 A 

NECJB1260 

NECJB1201 M 

USI Pi-2 12" GREEN MONITOR . 
USI Pi-3 1 2" AMBER MONITOR . 



139.00 
165.00 
119.00 
169.00 
139.00 
179.00 



MAGNETIC MEDIA 

OMEGA Stocks Diskettes by: 

• Dysan • Elephant • Maxell • Verbatim 

• All Equipment Factory Fresh w/ MFT Warranty 

• Prices Do Not Include Shipping Charges 

• Mass. Residents Add 5% Sales Tax 

• AH Returns Subject To Restocking Fee 



CUSTOMER PICKUP NOW AVAILABLE 

334 R Cambridge St., Burlington, Mass. 
(617)229-6464 



CALL TOLL FREE I 
1-800-343-0873 

Call Toll Free for Ordering. 
All Others call (617) 229-6464 



CHARGE IT! 

MasterCard / Visa 

WELCOME AT NO 
EXTRA CHARGE 



PRICES, SPECIFICATIONS AND 
AVAILABILITY Of ADVERTISED 
MERCHANDISE SUBJECT TO 
CHANGE WITHOUT NOTICE 



UNADVERTISED SPECIALS ON • COMREX • EPSON • NEC • IDS PRISM • OKIDATA 

OMEGA INTERNATIONAL 

334 R CAMBRIDGE STREET, BURLINGTON, MA. 01803 
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Pownrful — Economical — Professional 

Peripherals for your Apple II* 



$450.00 
A/D 1 2-Bit, 1 6 Channel ad - laisoa 

• Simple Software Selection of Channels 

• Range ±10, ±5, ±2.5, -^5, +10 

• High-Speed 25 fi Sec. Conversion 

• Full Software Support — Disk or Prom 



Ultra Rom Board/Editor $1 90.00 apb - loa 

• Powerful G.P.L.E. [Gtabal Program Line Editor] built in 

• Includes: Search and Replace - Insert and Delete - and much more 

• Edit programs 2 to 5 times faster 

• 32K of Bank Switchable ROM Space 

• Totdly Transparent - Remove or Rekiad with a few keystrokes - without dsk! 

• Extensive Macro Table eliminates multiple keystrokes for common operations 

• Useful Ampersand [&] Utilities all in one place 

• Applesoft* Extensions including "IF. THEN, ELSE" 

• Support for other HOLLYWOOD HARDWARE Products in Rom 



• Adjustable Bipolar Reference 
Circle No. 95 6842 Valjeaii Avenue, Van Nuys, California 91406 (213) 989-1204 



'Trademarks of Apple Computer Inc. 
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— Next Month in MICRO— 

Feature: 

Word Processing 

• What is word processing? 

What features do you need in a word 
processor'' 

• Word Processing witii Pascai 

Thjs program provides fuH woreT-prace^sAi? 
capabilities tor your Apple Pstscaf^ Language 
System Editor 

• Dvoralc Keyboard Demonstration 

The Dvorak Simplified Keyboard ts fastetthan 
the standard typewriter/ computer keyboard. 
Use this program to experiment. ^ . " ^".; 

• The Selectric Word Processor 

This conversion keyboard _uses ao-JBM i ■'.,, 
Selectric terminal as a fovf-cast prJBter. , ,' 
Plus: ' '■ ■■•'}■ . 

Our hardware series continues. Tlifs'monfh we 
look at peripherals avaifable for trie QtiC&c ■ 
Computer, the Tl 99/4A, and Commadore ' - 
machines \ ■ "■■ .■ 



©41NSANDER 



THE MONTHLY JOURNAL FOR 
COMMODORE COMPUTER USERS 



soPtR 






VIC-20 



GET YOUR MONEY'S WORTH 

You've probably made a sizeable investment in your computer 
equipment. COMMANDER can help you make the most of it. 
Each issue brings you the no-nonsense advice you need to 
^ on the leading edge ofthis constantly changing 
Weld. COMMANDER will be your reference 
to the world of computers . . . with the best, 
most comprehensive coverage you can get!! 

Subscribe now and take advantage of our 
limited offer of $4 off the one year subscription. 

C 1 YR. U.S. $220 2 YR. U.S. $400 3 YR. U.S. $58 

{Prices do not include i4 DiscounuPr^ces in U.S. Funds 
Washington residents please add 7.8% sales tax 

—Subscription Orders Only- 
Toll Free Number: 1-800-426-1830 

(except WA, HI, AK) 

COMMANDER 

P.O. BOX 98827 

TACOMA, WASHINGTON 98498 

(206) 565-6816 
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QUALITY SOFTWARE ON TAPE AND DISK | 


STATISTICS: 


TAPE 


DISK 


MEAN & STANDARD DEVIATION 


8.00 


12.00 


ONE-WAY ANOVA 


8.00 


1200 


GAUSIAN DISTRIBUTION 


8.00 


12.00 


SKEWHART DISTRIBUTION' 16K 


12.00 


17.00 


LINEAR REGRESSION- 8K 1 6K 


10.00 


15.00 


GEOMETRIC REGRESSION' 8K 16K 


10.00 


15.00 


HARMONIC REGRESSION- 8K 16K 


10.00 


15.00 


EXPONENTIAL REGRESSION- 8K 16K 


10.00 


15.00 


LOGARITHMIC REGRESSION' 8K 16K 


10.00 


15.00 


POWER FIT REGRESSION' 8K 16K 


10.00 


15.00 


QUADRATIC REGRESSION' 8K 16K 


10.00 


15.00 


BEST FIT REGRESSION* 8K 16K 


23.00 


30.00 


BUSINESS: 






BREAKEVEN ANALYSIS 


8.00 


10.00 


BUDGET ANALYSIS 


8.00 


10.00 


CASH FLOW 


8.00 


10.00 


DEPRECIATION 


8.00 


10.00 


EXPECTED VALUE 


3.00 


10.00 


FORCASTING 


8.00 


10.00 


MOVING AVERAE 


8.00 


10.00 


EXPONENTIAL 


8.00 


10.00 


INVENTORY PROJECTION 


8.00 


10.00 


INVENTORY TURNOVER 


8.00 


10.00 


LEASE/BUY 


8.00 


10.00 


PRODUCT COST 


8.00 


10.00 


PRODUCTION SIZE 


8.00 


10.00 


RATIO 


8.00 


10.00 


RETURN ON INVESTMENT 


8.00 


10.00 


MAILING LIST BK 


12.00 


16.00 


HOME: 






AMORTIZATION 


8.00 


10.00 


MORTGAGE 


8.00 


10.00 


MORTGAGE COMPARER 


8.00 


10.00 


PHONE DIRECTORY 


8.00 


10.00 


*16K VERSION SUPPORTS PRINTER | 


To Order: CONSTELLATION SOFTWARE 




94 Clerk Street 






Jersey City, N.J. 07305 






(201)432-0926 






Check. Money Order, and COD (add S3/. Handling Charge S2. | 


Send far our catalog. 
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PET/CBM 



TM 



SOFTWARE SELECT! 



8032 

DISPLAY 



OR 



4032 

DISPLAY 



FROM THE KEYBOARD OR PROGRAM 
NOW RUN WORD PRO 3 OR WORD PRO 4 

FROM THE SAME MACHINE 

Available for either 4000 or 8000 Series 

ALSO: 
For 2001 / 3000 Series Computers 

Operate these Models in a Full 8032 Like 

Display For Word Pro 4* 

and all other 80 Column Software 

All installation instructions included. 

EXECOM CORP. 

1901 Polaris Ave. 
Racine, Wl 53404 
Ph.414-632-1004 

PET/CBM a trademark of Commodore Business Machines 
'trademark of Professional Software, Inc. 
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Princeton, NJ 08540 (201) 329-2424 

Dick Busch, Inc. 
Eleanor M. Angone 

74 Brookline, 

E. Atlantic Beach, NY 11561 (516) 432-1955 
serving: New York, Pennsylvania, New Jersey, Delaware, Maryland, 
West Virginia, Virginia, D.C., North Carolina, South Carolina, Loui- 
sianna, Tennessee, Mississippi, Alabama, Georgia, and Florida 



Mercury Micro Inc 49 

Micro Data Supplies 19 

Micro Motion 34 

Micro Sparc 1 

Micro Spec 125 

Microware Distributing 13,60 

Midwest Micro 96 

MMG Software 80 

Modular Mining Systems 133 

Modular Systems 131 

Monarch Data Systems 16 

Moore Business Centers 11 

M P 1 35 

Omega Sales International 141 

Performance Micro Products 132 

Perry Peripherals 63 

Pion Inc 140 

PMI Inc 41 

Protecto Enterprises 113 

Pterodactyl Software 100 

R H Electronics 38,79 

Richvale Telecommunications 115 

Rock Roy 3 

Sage Computers 99 

Scientific Software 125 

SGC 53 

S J B Distributors 89 

Skyles Electric Works 139 

Software T' Boot 98 

Sorrento Valley Assoc 74 

Speciality Electronics 131 

Spectrum Projects 49 

Stellation 11 . . 12 

Strom Systems Inc 102 

Thunderhawk 14 

Toumayan &. Assoc 105 

United Computer Corp 9 

Victory Software 15 

Vista Computers Cover III 

Winders &. Geist Inc 101 

Zanim Systems 95 

Zytrex 88 



MICRO INK is not lesponsible for claims made by its advenisers. Any com- 
plaint should be submitted directly to the advertiser. Please also send writ- 
ten notification to MICRO. 



West Coast: 

The R.W. Walker Co., Inc. 
Gordon Carnie 

2716 Ocean Park Boulevard, Suite 1010, 
Santa Monica, California 90405 (213) 450-9001 

serving: Washington, Oregon, Idaho, Montana, Wyoming, Colorado, 
New Mexico, Arizona, Utah, Nevada, California, Alaska, and Hawaii 
(also British Columbia and Alberta, Canada) 

A/lid- West Territory: 

Thomas Knorr & Associates 
Thomas H. Knorr, Jr. 

33 N. Michigan Avenue, Suite 403 
Chicago, Illinois 60601 (312) 726-2633 

serving: Ohio, Oklahoma, Arkansas, Texas, North Dakota, South 
Dakota, Nebraska, Kansas, Missouri, Indiana, Illinois, Iowa, 
Michigan, Wisconsin, and Minnesota. 
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* ;*»i5th century renaissance man, Ifunarrlo \1gi Vin^cf ' 6^q.- . 
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j jperiments in manned'f light " " ^fW-^*-''"' ^ -^^'t 

Like Leonardo Vista Computer is .aii&wt:i inci > roamT- (^ . 
iTtoday.'s complex computer storiiQi* ptolik-'iTis. TtjS^^i^^iar 
; kV12pQjs a great solution to Apple ll") slmjijJr. nassj^arjt^ "f ' 
|mpr yoftr Apple IV" Computer has alwa>s bccnabfo.^feyf. b»i ^t > 
? feine^b^ftd. there were the ejf'otic. rxpensivo hard-tffaks-wttK*- """ 
l^^p eosifefficient means' of backup. Oit tlie utlvL-r^'tpiiK^^^ , 
:%Appl?'floppy drive lacked the spe«'d and stor^oe'dem^tteted ^^J* 
^1>y today 's- professionals. ,' , ' "^^ • tj 

(^fVibla's VOOO offers both at ajx im rtdlBli j^aciiv^^^ . 

; f The removable VistaPak cartridges ott^r^W^d^y^^^. yoif 

. i removable storage each an^ caivbe bdcked,A!P' fiHc a tl 

s& 4*- %lm 

^now hard diskstor^gq and speedcJn he.yoi^^ 
^capability of interchange&Uie rnedid. ltjt:^V^ffig.'c^indtt;s: 
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-■'^''^pplell IS a ■.■.i-'tei. 









BUY A BANANA. 

SAVE A BUNCH. 

MORE TO COME. 
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Leading Edge Products, Inc, 225 Turnpike Street, Canton, Massachusetts 02021. 

Cail: toll-free 1-800-343-6833, or in Massachusetts call collect (617) 828-81 50. Telex 951-624. 



